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ABSTRACT 


A  syntax  organization  for  recognition  of  handwritten  connected- 
word  is  studied  in  this  work. 

Each  writing  is  cut  into  strokes  at  the  middle  point  of  every 
down  cave  of  the  writing,  and  the  strokes  are  named  using  their  dir¬ 
ectional  characteristics  and  relative  size  among  the  strokes. 

A  syntax  is  organized  using  the  hierarchy  of  the  stroke  charac¬ 
teristics  and  self-iteration  for  the  error  corrections. 

The  strokes  are  classified  by  the  hierarchy  and  processed  to 
combine  the  strokes  into  characters  by  the  hierarchical  characteristics. 

The  lowest  level  of  hierarchy  collects  those  strokes  which  can 
not  be  combined  into  characters  by  their  solid  stroke  characteristics 
am.  organizes  a  two  dimensional  family  relation  for  relative  combina¬ 
tion  of  the  strokes  into  characters. 

The  local  classifying  routines  are  called  for  those  stroke  rela¬ 
tions  which  require  the  evaluation  of  the  relative  characteristics 
between  the  strokes  for  the  optimal  decision. 


CHAPTER  I 


INTRODUCTION 

1.1  Motivations 

Two  dimensional  input  devices  of  the  computing  machines  attract 
many  new  studies  in  the  man-machine  communication  field. 

Although  a  two  dimensional  computer  input  is  very  attractive,  a 
limited  pattern  recognition  capability  surely  restricts  its  practical 
value . 

For  this  reason,  those  works  directed  toward  high  dimensional 
interactive  computer  studies  in  software  as  well  as  in  hardware  have 
been  discouraged. 

Various  experiments  have  been  performed  in  recognition  of  hand¬ 
written,  single  characters  and  symbols  on  two-dimensional  computer 
input  devices  during  the  past  decade  (2,3).  Experiments  were  also 
conducted  in  the  recognition  of  connected  words  of  handwriting,  using 
dictionary-driven  word  matching  programs  for  limited  combinations  of 
characters  (2,5). 

In  contrast,  the  object  of  the  experiment  reported  here  is  to 
recognize  arbitrary,  handwritten  connected  words  as  well  as  single 
characters.  In  order  to  achieve  this  result,  a  different  approach 
was  required. 

For  the  recognition  of  cursive  writings  without  dictionaries  or 
large  tables,  the  writing  was  cut  at  the  middle  point  of  each  down 
cave  of  the  writing,  and  a  syntax  was  organized  for  these  strokes 
using  a  hierarchical  system  which  is  determined  by  the  characteristics 
of  all  characters. 
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A  semantics  is  implemented  for  each  level  of  hierarchy  to  eval¬ 
uate  the  characteristics  for  more  efficient  discrimination  at  each 
level  of  the  hierarchy. 

This  organization  produced  a  strong  flexibility  for  many  effi¬ 
cient  alternatives  and  large  room  for  decisive  factors  requiring  only 
simple  logic  evaluation.  In  one  use  of  this  flexibility,  self¬ 
checking  and  self-correcting  algorithms  were  implemented  for  the 
specified  types  of  errors.  The  criteria  for  stability  of  such  itera¬ 
tive  processes  were  determined  experimentally. 

In  operation,  the  hand-writing  from  a  Sylvania  Tablet  was  dis¬ 
played  on  the  screen  of  the  graphic  system  as  the  characters  were 
written.  After  recognition,  printed  symbols  were  also  displayed  on 
the  screen.  The  time  between  completion  of  the  writing  of  the  word 
of  six  characters  and  display  of  the  printed  word  was  less  than  two 
seconds , 

The  program  was  written  in  Algol  60  of  UNIVAC  1108  and  had  been 
run  in  real  time  and  on-line  under  the  UNIVAC  1108  EXEC  II  system  of 
the  University  of  Utah  (10). 

1.2  Scope  and  Depth 

Because  the  range  of  the  handwriting  pattern  is  broad,  and 
the  manner  of  various  writers  is  different,  many  syntax  entries  must 
be  examined,  and  many  difficult  organizational  problems  must  be  solved. 

The  accuracy  of  recognition  and  efficiency  of  the  program  is  a 
function  of  such  factors  as  the  number  of  syntax  entries  and  other 
complexities  by  improper  writing . 
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This  experiment  is  concerned  with  recognition  of  cursive  writing 
of  the  twenty-six  lower  case  letters  based  on  Palmer's  method  of 
penmanship  (7) .  These  letters  are  coded  along  with  other  popular 
characters  as  written  by  normal  writers  for  broader  applicability. 

Well-written  Palmer's  penmanship  requires  only  a  short  program 
for  recognition  without  a  mistake.  For  such  writing,  the  cutting 
algorithm  would  work  completely.  The  coding  of  the  direction  of  the 
strokes  and  the  relative  height  of  the  writing  would  not  cause  any 
difficulty  for  such  good  writings.  The  syntax  would  be  organized  in 
a  simple  pattern  and  the  semantics  would  be  implemented  with  a  rela¬ 
tively  small  number  of  entries,  which  reduces  the  number  of  discri¬ 
minating  algorithms  automatically. 

For  a  relatively  uncareful  writing,  errors  are  made  in  cutting 
the  writing  into  strokes.  Coding  errors  would  also  occur  because  of 
the  difficulty  in  recognizing  the  direction  of  the  stroke  and  the 
relative  positions  of  the  strokes. 

The  most  difficult  part  in  organizing  a  program  for  such  imperfect 
writing  is  the  syntax  organization  and  semantic  implementation.  For 
such  writing,  the  syntax  must  have  some  types  of  and  some  number  of 
correcting  algorithms,  which  require  changes  in  hierarchy  of  the  system 
and  cause  each  iteration  to  contain  complicated  feedback  loops. 

In  this  experiment,  relatively  broad  correcting  algorithms  were 
implemented  and  quite  diverse  writings  are  recognized  by  this  algorithm. 
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Figure  1  shows  the  display  of  the  handwritten  word  and  its 
recognized  symbols  on  the  display  screen  of  the  graphics  system  at 
the  University  of  Utah. 
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Figure  1.  Display  of  handwritten  word  and  its  recognition 


CHAPTER  II 


DATA  FILTERING  PROCESS 
2.1  System  Requirements 

The  graphics  system  at  the  University  of  Utah  for  cursive 
writing  recognition  consists  of  a  UNIVAC  1108  as  the  central  computer 
and  a  PDP-8  as  the  terminal  machine  with  an  Information  Display  Inc. 

system  to  generate  the  picture  and  a  Sylvania  Tablet  as  the  two-dimen¬ 
sional  data  input  device. 

The  UNIVAC  1108  has  36  bit  words  and  3  control  bits  for  each 
input  channel  anu  output  channel.  The  PDP-8  has  12  bit  words  for  each 
input  and  output  channel,  and  skip  bit  and  interrupt  bit  for  its 
input -output  system.  The  two  machines  are  coupled  together  through  a 
linkage  logic  which  modifies  the  word  size  of  each  machine  and  controls 
the  order  of  transmission  of  the  words. 

The  analog  outputs  of  the  Sylvania  Tablet  are  connected  to  analog 
to  digital  converter  to  sample  them  into  digital  outputs  and  are  trans¬ 
mitted  to  the  PDP-8  accumulator.  The  display  system  and  typewriter  are 
also  connected  into  the  PDP-8  accumulator  for  communication  during  the 
processing.  Since  many  machines  are  connected  together,  many  alter¬ 
natives  in  the  system  programming  as  well  as  seme  limitations  for 
efficiency  have  to  be  considered  for  this  graphic  system. 

The  speed  of  machine  and  efficiency  of  the  system  program  must  be 
considered  with  higher  priority  in  designing  the  system  especially  f  ,r 
the  interactive  design. 
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The  resolution  of  the  tablet  was  another  important  factor  in 
designing  experiments  because  it  determines  the  minimum  size  of  the 
writing  which  can  tolerate  the  distortion  of  the  sampling  process. 

The  resolution  of  1%  per  inch  is  required  for  normal  writing,  and 
higher  resolution  reduces  the  filtering  part  of  the  program  such  as 
noise  filtering,  density  control,  and  curve  smoothing  processes. 

A  swapping  mode  is  available  from  the  graphic  system  at  the  Uni¬ 
versity  of  Utah,  written  for  the  UNIVAC  1108  EXEC  II  system.  Under 
this  mode,  the  user  takes  only  the  running  time  from  the  central  com¬ 
puter,  which  provides  a  good  flexibility  during  the  experiment. 

The  program  was  compiled  and  coded  into  relocatable  language  at 
a  secondary  memory  of  the  central  computer  awaiting  the  next  swapping 
interruption.  While  waiting  for  the  1108  to  run  the  program,  the 
terminal  machine,  the  PDP-8,  is  running  to  pick  up  data  from  the  tab¬ 
let  and  display  the  writing  on  the  CRT.  As  soon  as  the  central  com¬ 
puter  is  interrupted  to  swap  with  new  data  which  is  provided  by  the 
terminal  machine,  the  swapping  mode  is  executed  to  run  the  program 
with  the  new  data. 

2.2  Noise  Filtering  and  Curve  Smoothing 

The  locations  of  the  stylus  on  the  tablet  are  sampled  by  the 
analog  to  digital  converter  and  transferred  to  the  PDP-8  accumulator. 
The  density  of  the  sampled  data  can  be  controlled  by  the  system  pro¬ 
gram  and  by  the  filtering  program  simply  checking  the  distance  between 
the  two  consecutive  samples. 
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The  rate  of  the  sampling  process  and  the  speed  of  system  program 
for  ths  collection  of  the  sampled  data  are  very  important  factors  for 
filtering  purposes.  The  speed  of  writing  is  always  slow  enough  for 
the  converter  to  sample  the  writing  at  any  point.  The  system  program 
has  to  be  fast  enough  to  look  at  every  sampled  point.  These  factors 
are  the  main  limitations  to  the  density  of  handwriting  sampling. 

Finite  resolution  of  the  tablet,  as  well  as  noises  due  to  hard¬ 
ware  failure  require  the  checking  and  correcting  algorithms  which  vary 
depending  on  the  purpose  of  the  experiment.  A  four-point  noise  check¬ 
ing  and  correcting  rule  was  implemented  for  the  cursive  writing  recog¬ 
nition  experiment. 

This  algorithm  operates  as  follows: 

In  Figure  2 

if  X(l)  less  than  X(2)  and  X(2)  greater  than  X(3)  and  X(3) 
less  than  X(4) 

then  CX(2)  =  X(l) ; 

In  Figure  3 

if  X(l)  greater  than  X(2)  and  X(2)  less  than  X(3)  and  X(3) 
greater  than  X(4) 
then  CX(2)  =  X(l) ; 

In  Figure  4 

if  Y (1)  less  than  Y(2)  and  Y(2)  greater  than  Y(3)  and  Y(3) 
less  than  Y(4) 


then  CY (2)  =  Y(l) ; 
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In  Figure  5 

if  Y(l)  greater  than  Y (2)  and  Y(2)  less  than  Y(3)  and  Y (3) 
greater  than  Y(4) 
then  CY (2)  =  Y(l) ; 

Other  algorithms  can  be  compared  to  the  four-point  algorithm 
regarding  the  reliability  of  the  system.  For  instance,  the  three- 
point  correcting  algorithm  is  quite  strong  for  checking  and  correcting 
purposes,  but  there  would  be  a  high  probability  of  destroying  informa¬ 
tion  by  changing  the  values  at  the  sharp  edges  or  sharp  curves. 

A  curve  smoothing  rule  could  be  implemented  using  some  interpo¬ 
lating  algorithms.  This  idea  is  generally  the  same  as  the  three  point 
rule  except  using  the  median  value  instead  of  current  value.  Espe¬ 
cially  for  the  iterating  cases,  thery  would  be  a  big  chance  of  destroy¬ 
ing  the  original  information  producing  wrong  codings. 
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Original  Curve 
Corrected  Curve 


Figure  5.  Y-correction  for  high  initial  value 


CHAPTER  III 


FIGURE  EXTRACTION 

3.1  Writing  Cutting  and  Stroke  breaking  Algorithm 

The  normal  writing  of  a  word  consists  of  several  segments  of 
piecewise  continuous  writing.  In  this  experiment  each  discontinuity 
is  marked  at  the  discontinuous  point  by  the  third  dimensional  variable 
in  the  data  structure.  Each  segment  of  writing  is  then  cut  into 
strokes  at  only  the  lowest  point  of  every  down  cave  of  the  writing,  and 
each  piece  of  stroke  is  indexed  for  further  processing. 

This  low  point  cutting  algorithm  carries  more  information  for 
later  evaluation  than  any  other  algorithm  because  all  high  point  and 

middle  point  information  is  completely  available  as  in  the  original 
data. 

The  low  parts  of  writing  are  always  less  important  for  the  recog¬ 
nition  than  any  other  part  of  the  writing,  because  nearly  every  written 
character  ends  by  tailing  down  the  last  part  of  the  last  stroke  of  the 
character. 

Each  stroke  is  broken  into  branches  at  the  points  where  the  first 
difference  of  the  X  or  Y  variable  changes  the  sign.  Each  branch  is 
indexed  and  a  two  dimensional  marker  is  used  to  point  to  the  boundaries 
between  branches. 

This  marking  algorithm  carries  all  data  of  the  original  system 
without  losing  or  destroying  any  part  of  the  feature,  and  this  method 
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Figure  7.  Breaking  algorithm  for  writing  'bJ' 
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enables  the  programmer  to  operate  a  large  amount  of  data  even  with 
small  capacity  of  memory. 

The  cutting  and  breaking  algorithms  are  shown  in  Figure  6  and  in 
Figure  7 . 

3.2  Stroke  Naming  and  the  Relative  Position  Coding  Rule 

Each  stroke  was  broken  into  several  branches  to  code  the  direc¬ 
tion  of  the  branches  for  naming  of  the  stroke. 

As  soon  as  the  stroke  changes  its  major  direction,  a  new  direc¬ 
tional  code  is  assigned,  which  is  added  to  the  previous  code  multi¬ 
plied  by  ten;  this  is  repeated  until  the  coding  of  the  entire  stroke 
is  completed. 

F'  T  diagonal  major  directions  are  used  in  this  work,  and  they 
are  defined  below: 

if  X  and  Y  both  decrease  then  Code  =  0; 
if  X  decreases  and  Y  increases  then  Code  =  1; 
if  X  increases  and  Y  decreases  then  Code  =  2; 
if  X  and  Y  both  increase  then  Code  =  3; 

The  horizontal  stroke  and  short  stroke  were  specially  coded  using  7  in 
this  work. 

In  this  procedure  the  stroke  coding  has  less  than  six  or  seven 
digits  because  normal  hand  writing  stroke  does  not  have  more  than  five 
or  six  directional  changes. 

The  diagonal  direction  rather  than  rectangular  direction  was 
employed  in  this  work  because  it  has  many  advantages  compared  to  other 


directional  coding  algorithms.  The  checking  and  correcting  algorithm 
for  the  directional  code  and  boundary  marker  would  have  great  advan¬ 
tage  because  of  the  characteristics  of  the  diagonal  direction. 

The  definition  of  major  diagonal  directions  and  the  boundary  of 
the  four  directions  are  shown  in  Figure  8  and  the  examples  of  the 
named  strokes  are  shown  in  Figure  9  with  their  names. 

Another  important  feature  in  hand  writing  is  the  information  of 
relative  stroke  sizes  and  the  relative  positions  of  the  top  parts  and 
bottom  parts  of  the  neighboring  strokes.  This  idea  may  be  implemented 
in  many  different  manners  depending  on  the  writing.  For  careful  writ¬ 
ing,  the  absolute  normal  size  might  be  implemented  for  the  program 
efficiency,  but  for  poor  writing  the  relative  normal  size  might  be 
used  to  check  the  normal  size  for  each  character. 

The  relative  size  and  positions  were  classified  as  following: 

1.  Normal  sized  stroke; 

Every  character  has  this  size  of  stroke  as  the  first  part 
or  last  part  except  the  characters  as 

The  normal  size  and  position  of  stroke  is  shown  in  Figure  10. 

2.  Above  positioned  stroke; 

Some  strokes  are  significantly  large  because  of  the  upward 
extension  compared  to  normal  sized  strokes.  For  example, 
the  second  stroke  of  the  character  is  larger  in  upward 
direction  compared  to  a  normal  sized  stroke. 

This  example  is  shown  in  Figure  11. 


3.  Down  positioned  stroke; 

Some  strokes  are  longer  in  the  downward  direction  compared 
to  the  normal  sized  stroke. 

An  example  using  character  is  shown  in  Figure  12. 

4.  Full  sized  stroke; 

The  character  ^ l '  is  the  only  character  having  a  full  sized 
stroke  out  of  lower  case  alphabets,  which  extends  above  and 
below  a  stroke  of  normal  size  and  position. 

The  example  is  shown  in  Figure  13. 

In  the  program,  the  positions  were  named  as  following: 

if  normal  sized  then  pocode  -  1 

if  above  positioned  then  pocode  =  2 

if  down  positioned  then  pocode  =  3 

if  full  sized  then  pocode  *  4 

else  then  pocode  =  0; 

3.3  Character  Decomposition 

The  writing  cutting  algorithm  and  the  stroke  breaking  algorithm 
are  implemented  for  each  different  pattern  of  each  lower  case  letter 
of  the  alphabet.  The  patterns  of  each  character  are  picked  up  from 
Palmer  s  note  (7)  and  from  the  commonly  used  writings. 

The  range  of  patterns  which  were  implemented  in  this  coding 
determines  the  capability  and  the  reliability  of  the  system. 

The  features  of  decomposed  characters  are  shown  in  Figure  14. 
Nearly  all  writing  patterns  of  lower  case  alphabets  generated  by  the 
normal  writers  who  did  not  have  any  writing  training  for  the  standard 
writing  are  coded. 
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The  first  stroke  in  the  figure  is  the  first  part  of  the  character 
and  the  second  stroke  or  the  last  stroke  in  the  figure  is  the  next 
part  of  the  character  for  the  character  composition. 

In  Figure  15,  the  possible  stroke  combinations  for  each  charac¬ 
ter  composition  which  was  listed  in  Figure  14  by  the  stroke  feature 
is  shown  using  the  stroke  name. 

There  are  several  different  types  of  character  composition  in 
stroke  combinations.  Some  characters  have  only  a  single  column  of 
strokes  and  others  have  two  or  three  columns  of  strokes.  The  charac¬ 
ters  which  have  a  single  stroke  column  will  be  recognized  by  the 
characteristics  of  the  stroke  in  that  column,  and  the  characters  which 
have  two  columns  of  strokes  would  be  recognized  by  identifying  the 
stroke  combination  between  any  stroke  in  the  first  column  and  any 
stroke  in  the  second  column.  The  three  column  characters  would  have 
every  possible  stroke  combination  using  any  one  stroke  from  each 
column  and  the  characters  would  be  recognized  by  identifying  one  of 
the  characteristics  in  the  combinations „ 

Each  stroke  is  classified  by  two  coding  names,  the  first  name 
is  the  directional  coding  and  the  second  name  is  positional  code. 

The  strokes  which  do  not  have  the  positional  code  are  classified  by 
only  the  directional  coding  and  the  positional  code  is  not  considered 
for  the  particular  stroke  combination. 

The  stroke  which  is  negligible  in  character  structure  is  listed 
as  'neglected*  and  the  stroke  which  is  negligible  in  stroke  combination 
and  is  significant  for  evaluation  of  stroke  characteristics  is  listed 
as  'optional'  in  the  stroke  column  of  Figure  15. 


Figure  14.  Continued,  the  fourth 


V. 


Ml 


r  \  r  '  "  f 

Strokes  (1-1) 

7K 

m-1 

- r - - - — _ _ _ _ 

±  )  CL 

2  4 

First  Stroke  (m-1) 

Middle  Stroke  (m-1) 

2 IA/1AA 

21 

n-1 

Last  Stroke  (m-1) 

2  I  S 

TTTT/I  A 

First  Stroke  (n-1) 

Second  Stroke  (n-1) 

Or/O  7> 

o-l  o-2  o-3 

<  /  r  r 

in  ft 

First  Stroke  (o-l) 

Second  Stroke  (o-l) 

Figure  14.  Continued,  the  sixth 
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Figure  15.  Character  structures  by  the  stroke  name 


Figure  1.5 „  Continued,  the  third 


The  positional  coding  is  not  required  in  stroke  combination 
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Figure  15,  Continued,  the  fourth 

The  positional  coding  is  not  required  in  stroke  combination 
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Figure  15.  Continued,  the  sixth 


The  positional  coding  is  not  required  for  the  stroke  combination 
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SYNTAX  FOR  CURSIVE  WRITING  RECOGNITION 
4.1  A  Hierarchical  Organization  by  Stroke  Characteristics  in  the 

Character  Structure 

The  characteristics  of  character  structure  which  were  described 
in  the  previous  chapter  are  used  in  this  section  for  the  construction 
of  a  syntax  for  cursive  writing. 

The  group  of  strokes  for  each  level  is  selected  by  the  stroke 
characteristics  and  stroke  functions.  The  selection  is  made  such 
that  a  processing  at  a  given  level  is  independent  of  any  lower  level 
process  that  may  exist. 

The  highest  level  is  processed  first  using  its  own  strong  char¬ 
acteristics  with  highest  reliability  for  recognition  of  the  writing. 
Then  the  next  higher  level  is  processed  in  the  same  manner  using  its 
own  characteristics  with  a  high  reliability  for  the  recognition  atd 
without  further  reference  to  any  higher  levels. 

The  other  lew  levels  would  follow  the  above  routine  for  their 
individual  processing  steps  until  all  the  strokes  were  processed. 

The  Baye's  theorem  (8)  can  analyze  this  organization  of  writing 
recognition  in  terms  of  conditional  probability.  As  long  as  the  higher 
level  keeps  better  reliability,  this  syntactic  organization  would 
promise  optimal  reliability  for  the  entire  experiment. 

Each  characteristic  of  the  stroke  is  classified  and  the  system 
hierarchy  is  listed  in  the  following: 
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I.  Unique  characters: 

Some  stroke  can  occur  in  a  particular  character  and  this  charac¬ 
ter  can  be  recognized  immediately.  Such  strokes  are  independent  of 
any  other  stroke  in  the  system.  Characters  containing  these  strokes 
are  recognized  at.  the  highest  level  of  priority.  An  example  is  the 
letter  * . 

II.  Stairway  characters: 

Some  characters  have  a  stroke  which  has  another  stroke  positioned 
just  underneath  cf  the  first  stroke  to  build  a  stairway. 

Examples:  '.X' 

III.  Intersecting  characters: 

Some  stroke  intersects  another  stroke  to  build  a  character. 
Examples:  'yt\  ' /} d.’ 

IV.  Pointed  characters: 


A  short,  stroke  points  certain  positions  regard  to  some  strokes  to 
specify  some  characters. 

Examples  :  1 As  ' ,  ' 

V.  Circled  characters: 

Some  characters  begin  with  a  circle  and  the  first  stroke  of  the 
circle  is  required  to  be  the  normal  sized  stroke. 

Examples:  'CL/', 

VI.  First-fixed  character 

Some  strokes  are  employed  to  build  a  character  only  as  the 
first  stroke  of  the  character  The  size  of  this  group  can  be  varied 
by  changing  the  order  of  the  hierarchy. 

Examples:  'Ji,' , 
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VII.  Osculated  characters: 

Checking  the  osculating  property  between  the  neighboring  strokes, 
it  is  possible  to  realize  whether  they  are  members  of  the  same 
character . 

Examples:  '•? n\  ' 7L>' 

VII,  Last-fixed  character: 

Some  strokes  are  employed  to  build  a  character  only  as  the  last 
stroke  of  the  character.  The  size  of  this  group  will  vary  depending 
on  the  priority  of  this  level 

Examples:  ' /VJ' ,  ,|irf 

IX,  Relative  Characters: 

Other  strokes  which  do  not  belong  to  the  above  groups  are  called 
relative  strokes.  They  will  be  processed  as  relative  strokes  by  the 
information  which  they  carry  for  further  decision.  The  algorithm  will 
be  discussed  in  later  chapters  using  more  complicated  routines. 

4  2  Syntax  Specifications 

The  organization  of  syntax  would  vary  depending  on  the  system 
specifications  such  as  the  range  of  writing  pattern  and  carefulness 
of  writers,  even  for  the  same  text.  This  specification  would  be  very 
complicated  for  the  writings  of  uncareful  and  untrained  users,  be¬ 
cause  a  correcting  system  has  to  be  implemented  in  addition  to  che 
basic  system, 

A  self  correcting  algorithm  was  used  in  an  early  paper  ( 6 )  for 
character  recognition  using  a  reference  generator  for  the  feedback 
loop 


40 


A  different  implementation  for  the  correcting  loop  is  used  for 
this  cursive  writing  recognition  using  syntax-directed  logic. 

In  Table  1  the  syntax  specifications  are  shown  using  a  list 
procedure  language  in  a  formalism  similar  to  Bakus  normal  form  (1). 

The  first  classification,  second  classification,  third  classifi¬ 
cation,  fourth  classification,  fifth  classification,  sixth  classifi¬ 
cation  would  form  a  complete  routine  for  writing  recognition  in  case 
of  the  users  who  write  well. 

A  correcting  loop  which  includes  the  third  and  fourth  classifica¬ 
tion  is  inserted  between  the  second  classification  and  the  fifth 
classification  of  the  above  system  to  correct  errors  in  third  classi¬ 
fication  and  fourth  classification  of  the  system. 

A  new  system  was  necessary,  because  the  priority  of  operation  is 
changed  by  the  new  considers  ions  -  The  complexity  of  an  error  correc¬ 
ting  system  is  a  function  of  the  error  priority  which  is  determined  by 
the  types  of  error  and  the  levels  of  error  considered. 

In  this  work  the  characters  and  »  are  checked  and  correc¬ 

ted  for  some  users  who  fail  to  give  enough  down  cave  of  the  second 
stroke  of  the  character 

A  correcting  loop  is  shown  in  the  syntax  specifications  of  Table  I, 
and  the  iteration  idea  is  also  shown  in  the  entries  of  the  specifica¬ 
tions.  The  semantics  is  explained  in  the  next  section. 

4  3  Semantic  Interpretations 

The  figure  extracting  procedures  are  applied  to  the  structure  of 
the  sampled  data  system  to  name  each  stroke  for  the  next  recognizing 
algorithm 


( 

*■ 
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TABLE  1 

Syntax  specifications  for  handwriting  recognition 
with  self  correcting  loop 


<characters> 

:  =  <first  classificationxsecond  classifica¬ 
tions  <correcting  loops <fifth  classifica¬ 
tions  <sixth  classifications 

Correcting  loop 

: =<o-cor  rec  t.  ion  ><b- corrections 

<o-coxrection> 

:=< third  classification><first  classifica¬ 
tions  <second  classifications 

<b-correction> 

:=< fourth  classificationxfirst  classifica¬ 
tionxsecond  classif ication><third 

classifications 

<first  classification'-* 

:=<unique  characterxstairway  characters 

<second  classificaticn> 

:=<intersecting  characters ^pointed  characters 

<third  classifications 

:=<circled  characters 

<fourth  classifications 

:=<first-fixed  characters 

<fifth  classification> 

:=<osculated  characters <last-fixed  characters 

<sixth  classif ication> 

:=<relative  characters 

•■'unique  characters 

-y 

<stairway  characters 

'ty'I'&'I'A'I'y 

<intersecting  characters 

96  '/'  1 

<pointed  characters 

Circled  characters 

<first-fixed  characters 

:=  '4'  n&'  r£'  r^'  rJk /'A*  I'v'i'-us' 

<o3culated  characters 

:=  '  TfC i 

<last-fixed  characters 

'Htn 

<relative  character-- 

After  each  stroke  is  named  by  the  early  procedures,  the  routines 
of  classification  are  called  to  check  the  characteristics  of  each 
stroke  and  classify  the  strokes  by  their  individual  characteristics. 

Each  level  of  classification  is  studied  and  explained  in  the 
following,  displaying  the  structure  and  characteristics  of  the  level. 
<first  classif ication> : 

The  string  of  the  strokes  is  checked  and  classified  for  the 
first  time  during  this  routine,  and  the  following  characters  are 
recognized: 

<unique  characters 

The  following  strokes  are  coded  as  the  unique  characters.  The 
symbol  SD(I)  is  defined  as  the  Ith  stroke  of  the  string  and 
CHA(I)  is  defined  as  the  Ith  character  of  the  string, 
if  SD(I)  =  320201  or  30201  or  20201 
then  CHA(I)  =  'z' 

<stairway  characters 

The  stairing  property  is  checked  between  the  neighboring  strokes 
for  certain  strokes,  and  the  following  stroke  sequences  are  recog¬ 
nized  as  the  stairii-.g  characters, 
if  SD(I)  =  3201  or  301 

and  SD(I+1)  =  320  or  30  or  20 
then  CHA(I)  =  'z' 
and  SD(I+1)  =  32  or  12  or  2 
then  CHA(I)  -  's' 


"''These  strokes  do  not  have  positional  code  and  they  are  used  regardless 
of  the  positional  value. 
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and  SD(I-l)  =  30  or  310 

and  SD(I+1)  =  32  or  12  or  2 
then  CHA(I)  =  'p1  or  ' k ' 

Each  sequential  combination  might  require  further  classifying 
routines  depending  on  the  number  of  members  in  that  class. 

<second  classification 

After  the  first  classification,  the  second  classification  follows 
to  check  the  second  level  characteristics.  The  following  characters 
belong  to  this  level. 

intersecting  characters 

The  intersecting  property  is  checked  in  this  step  and  the  strokes 
were  coded  as  following: 
if  SD(I)  =  0  or  7 

and  <other  strokes  which  are  intersected  by  above  strokes> 
then  CHA(I)  =  'x'  or  ' t ’ 

<pointed  characters 

The  pointing  property  is  checked  during  this  step  and  the  follow¬ 
ing  strokes  are  coded  as  the  pointed  characters: 
if  SL(I)  =  7 

and  <other  strokes  which  are  pointed  by  above  stroke> 
then  CHA(I)  =  ' i ’  or  'j ' 

<o-correction> 

The  characteristics  of  character  'o'  are  checked  and  other  errors 
will  be  corrected  which  were  generated  by  the  character  'o'. 


<third  classifications 

The  circled  characteristics  are  checked  for  this  level  characters. 
<circled  characters 

The  following  strokes  were  coded  to  the  characters  of  this  level, 
if  SD(I)  =  0-1  or  10-1  or  02-1  or  102-1 

then  check  character  and  recognize  it 
and  correct  the  related  informations 
and  SD(I+1)  =  30-2  or  32-2  or  302-2 
then  CHA(I)  =  'd* 
and  SD(I+1)  =  302-3 
then  CHA(I)  =  V 
and  SD(I+1)  =  30-3 

then  CHA(I)  -  'g'  or  'q' 
and  SD(I+1)  -  30-1  or  32-1  or  302-1 
then  CHA(I)  =  'a' 

if  SD(I)  =  302-1  or  3102-1  or  3202-1  or  30-1  or  202-1  or 
20-1 

then  check  the  character  ' & '  and  recognize  it 
and  correct  other  related  informations 
and  SD(IH-l)  =  30-2,  32-2,  302-2 
then  CHA(I)  =  *d ’ 
and  SD(I+1)  =  302-3 
then  CHA(I)  =  f q ' 
and  SD(I+1)  =  30-3 


then  CHA(I)  =  Tg *  or  ’ q ' 
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and  SD(I+1)  =  30-1  or  32-1  or  302-1 
then  CHA(I)  =  'a' 

Some  classes  might  require  further  discriminations  depending  on 
the  complexity  of  the  class. 

<first  classification ,<second  classification>  in  this  level  is 
same  as  defined  at  early  step. 

<b-correction> : 

The  characteristics  of  a  character  'Jy'  are  checked  and  the  distorted 
information  by  the  character  'Jr'  is  corrected  during  this  procedure. 
<fourth  classification> : 

The  strokes  which  are  the  first  stroke  of  each  character  are  checked 
to  be  classified  as  this  level  of  character. 

<first-fixed  character> : 

The  following  strokes  are  coded  as  the  first-fixed  characters 
if  SD(I)  *  3102-2  or  302-2 

then  check  the  characteristics  of  the  character  'Jr'  and 
recognize  it.  Correct  all  related  informations 
if  SD(I)  =  310-2  or  30-2 
and  SD(I+1)  =  32-1 


then  CHA(I)  =  'h'  or  V 

correct  informations  related  to 
and  SD(I)  =  3202-1  or  302-1 

then  CHA(I)  =  'h'  or  'k'  or  'b ' 

correct  informations  related  to 
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and  SD(I+1)  =  30-1 

then  CHA(I)  =  'h'  or  »b' 

correct  informations  related  to  ' J/' 
else  check  character  'b*  and  recognize  it 
correct  informations  related  to  \J(r' 
and  <first  classification*.  <second  classification* ,  <thlrd  class!- 
fication>  are  same  as  defined  at  early  steps. 

<fifth  classification> : 

Ihe  osculating  characters  and  the  last-fixed  characters  are 
checked  during  this  step. 

<osculating  chartcters>: 

The  following  strokes  are  coded  to  be  the  characters  of  this  level 
if  SD(I)  =  32-I  or  320-1  or  30-1  or  20-1 
and  SD(I+1)  =  302-1  or  3202-1 
then  CHA(I)  =  »n' 
and  SD(I+1)  =  32-1  or  32o-l 
then  CHA(I)  =  'nf 

and  SD(I+2)  =  30-1  or  32-1  or  302-1  or  3202-1  or  320-1 
then  CHA(I)  -  'm' 

<last-fixed  character>: 

The  following  strokes  are  coded  as  the  last-fixed  characters 
if  SD(I)  =  312-1 

and  SD(I-l)  =  320-1  or  302-1  or  30-1  or  202-1  or  20-1 


then  CHA(I)  = 
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<sixth  classification : 

This  step  collects  all  other  strokes  which  are  not  processed 
previously  until  this  step. 

<relative  characters 

The  following  strokes  are  coded  as  the  relative  character.  The 
detailed  coding  procedures  for  this  particular  character  are 
analyzed  in  the  next  chapter, 
if  SD(I)  =  32-1 

then  CHA(I)  =  'r*  or  'u'  or  'v'  or  'w' 
if  SD(I)  -  320-1 

then  CHA(I)  =  's’  or  *rf  or  'v*  or  'y* 
if  SD(I)  -  3202-1 

then  CHA(I)  =  'r'  or  's'  or  'v'  or  'y' 
if  SD(I)  =  30-1 

then  CHA(I)  ■  's'  or  ’u’  or  ’v*  or  'w'  or  ' y ' 
if  SD(I)  =  30-3 

then  CHA(I)  =  'p' 
if  SD(I)  =  302-1 

then  CHA(I)  =  'c'  or  ?e'  or  'r'  or  's’  or  'u'  or  'v'  or  'w' 


The  entire  program  is  listed  in  Appendix  9.1. 


CHAPTER  V 


IMPLEMENTATION  OF  THE  SYNTAX  ANALYZER 
5.1  System  Analyzer 

A  string  of  strokes  in  e-d’-  to  be  processed  by  the  recognizing 
algorithms  after  a  writing  iu  completely  coded. 

The  first  classification  checks  the  entire  string  of  strokes  as 
a  beginning  part  of  the  recognizing  algorithm.  The  unique  characters 
are  encoded  from  the  stroke  characteristics  and  the  stairway  charac¬ 
ters  are  coded  from  the  stairing  characteristics. 

The  stairing  properties  are  defined  for  a  couple  of  different 
cases  as  following j 

In  Figure  16 

if  (Y(3)-Y(2) )/(Y(l)-Y(2) )  less  than  0.7  and 
(Y(3)-Y(2))/(Y(3)-Y(4))  less  than  0.7  and 
(X(3)-X(l))  less  than  (Y(l)-Y(2))  then 
stairing  is  true. 

In  Figure  17 

if  X(3)  less  than  X(l)  and 
^4)  greater  than  Y(3)  then 
stairing  is  true. 

In  the  second  classification  level,  the  intersecting  characters 
and  the  pointing  characters  are  coded  by  their  characteristics. 

The  intersecting  characteristic  is  a  geometric  intersection 
between  any  two  strokes,  and  the  pointing  characteristic  is  a  simple 
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checking  for  the  distance  between  the  point  and  a  head  of  the  strokes. 
Such  an  algorithm  can  be  checked  by  evaluating  a  simple  arithmetic 
feature  for  the  characters. 

The  complete  system  is  shown  in  Figure  18  and  the  correcting 
algorithm  will  be  discussed  at  the  next  step. 

During  the  third  classification  the  circled  characteristics 
will  be  checked  before  any  correcting  procedure  is  applied. 

The  circled  characteristic  is  defined  as  follows: 

In  Figure  19 

if  position  (2)  -  position  (1)  is  less  than  NY/4 
then  circled  is  true. 

After  the  circled  property  is  checked,  the  character  o-correction 
algorithm  is  called  and  the  other  errors  are  checked  and  corrected. 

In  Figure  20 

if  OX  is  greater  than  NY/5  or  NY/OY  is  less  than  2.0 
then  o-correction  is  true. 

As  soon  as  the  o-correction  is  checked,  the  neighboring  stroke 
will  be  redefined  and  the  number  of  the  iteration  will  be  incremented 
by  one  for  each  correction. 

This  additional  iteration  will  recall  the  classifications  which 
were  previously  made.  Since  the  error  is  corrected  and  the  neigh¬ 
boring  information  is  corrected,  it  is  very  necessary  to  scan  the 
system  again  and  reprocess  the  entire  string. 

The  b-correction  routine  is  processed  at  the  next  classification 
step.  The  characteristics  of  the  character  ’b'  are  checked  and  then 
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other  correcting  routines  are  called  for  the  correction  of  the  distor¬ 
ted  information  which  was  generated  by  the  error  in  the  character  'Jr  . 

The  characteristics  of  the  character  'Jr*  are  defined  as  following: 

In  Figure  21 

if  (position  (2)  -  position  (1))  is  less  than 
(position  (1)  -  position  (3))/4 
then  b-correction  is  true. 

As  soon  as  the  b-correction  is  suggested  by  the  error  checking 
routine,  the  neighboring  stroke  would  be  checked  and  corrected  and  the 
number  of  the  iteration  is  incremented  by  one.  During  this  iteration, 
the  higher  classification  level  will  be  called  to  recheck  the  entire 
string  including  the  newly  corrected  strokes. 

At  the  fifth  step  of  classification,  the  osculated  characters 
and  the  last-fixed  characters  are  checked  and  processed. 

The  osculating  property  is  defined  as  following: 

In  Figure  22 

Measure  ND  at  each  point  of  the  line  from  point  1  to  2 
count  the  number  of  times  for  the  following  cases: 
case  1:  ND  less  than  NY/5 
case  2:  ND  greater  than  NY/5 

if  case  1  is  more  than  case  2  then  osculation  is  true. 

The  character  WW  requires  another  osculating  operation  for  the 


next  stroke  to  identify  the  property  of  character  from  character 

,/7i*  • 


55 


The  last-fixed  characters  are  coded  from  the  stroke  characteris¬ 
tics  and  stroke  functions  for  the  particular  strokes. 

The  remaining  strokes  which  were  not  processed  by  the  previous 
classifications  are  collected  to  be  processed  by  the  local  analyzer 
to  use  the  idea  of  the  relatively  discriminating  classification. 


5.2  Character  Compositions 

Most  characters  are  recognized  by  the  combination  of  the  matched 
strokes  during  the  classifying  steps.  The  syntax  organization  is 
specified  for  the  optimal  combination  of  strokes  by  their  characteris¬ 
tics  in  this  work. 

The  combinations  in  higher  level  strokes  are  more  solidly  defined 
and  the  recognition  is  more  reliable  than  that  of  lower  level  groups. 

The  unique  characters ,  the  intersecting  characters  and  the 
pointed  characters  would  have  special  combinations  for  the  character 
composition  because  their  classifications  are  specified  quite  uniquely 
by  their  characteristics  as  pointed  out  in  the  section  on  semantic 
explanation. 

For  the  stairing  characters,  the  characters  'A',  'A\  are 
discriminated  from  the  characteristics  of  character  '/&'  using  the 
local  routine  HKVSL  and  the  character  'A'  or  'A'  is  identified  by 
the  local  routine  HVSK  for  the  final  decision  of  recognition. 

The  local  discriminating  routines  are  studied  in  the  next  section 


of  this  chapter  in  more  detail. 
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The  possible  number  of  stroke  combinations  for  the  low  level  group 
of  strokes  is  increased  and  the  discriminating  algorithms  are  more 
complicated  for  each  class  of  combination  in  this  lower  level. 

The  circled  characters  have  the  fixed  stroke  combination  for  the 
character  composition,  and  the  stroke  combinations  for  this  classifi¬ 
cation  are  defined  in  Table  II.  The  row  strokes  are  the  first  strokes 
of  the  characters  defined  in  the  boxes  and  the  column  strokes  are  the 
last  strokes  of  the  characters  defined  in  the  boxes. 

In  Table  II,  most  boxes  are  well  defined  with  a  single  character, 
and  sor.ie  other  boxes  have  two  characters.  For  the  boxes  having  char¬ 
acters  '  and  ’  together  in  that  box  a  discriminating  routine 
GVSQ  is  called  to  evaluate  the  comparative  characteristics  between 
the  characters  and  for  the  boxes  having  characters  'CL'  and  ' &' 
together  in  that  box,  the  character  o  is  picked  out  by  the  o-correc- 
ting  routine  before  getting  any  other  process  for  this  level. 

The  local  routine  GVSQ  is  presented  in  next  section  for  further 
discussions . 

For  the  first-fixed  characters,  the  character  combinations  are 
shown  in  Table  III.  This  table  is  similar  to  Table  II  except  that  it 
has  a  parent  node.  This  parent  node  will  build  a  tree  using  other 
strokes  in  the  same  column  as  the  children  nodes. 

From  the  Table  III,  the  column  strokes  02-1,  102-1,  310-4,  3102-4, 
30-4,  302-4  have  only  one  character  as  the  parent  node  without  any 
children  node.  The  parent  strokes  would  be  coded  as  the  characters 


in  the  boxes. 
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The  columns  20-1,  202-1  have  only  children  nodes  without  having 
any  parent  node  like  the  columns  in  Table  II.  The  local  routine 
VCHEK  will  be  called  to  discriminate  the  characters  V  and  V  which 
were  in  the  same  box. 

The  columns  3102-2,  302-2  have  two  characters  in  the  parent  node 
without  having  any  children  node.  The  b-correcting  routine  would  be 
called  to  check  and  recognize  character  b  and  correct  the  neighboring 
informations  which  might  have  been  distorted  by  the  character  b. 

For  the  column  strokes  310-2,  30-2,  a  tree  is  built  and  analyzed 
as  in  the  following; 

if  SD(I)  =  310-2  or  30-2 

and  SD(I)  is  the  last  stroke  of  segment  of  string 
then  CHA(I)  =  '1' 

and  SD(I+1)  =  30-1  or  32-1 
check  I JL&*'  calling  HKVSL 
if  true  then  CHA(I)  =  *h ' 

if  false  then  check  and  correct  calling  BCOREC 
and  SD(1+1)  =  3202-1  or  302-1 
check  JJu  calling  HKVSL 

if  true  the:;  compare  '-A'  and  'A'  calling  HVSK 
if  false  then  check  and  correct  calling  BCOREC 
else  check  and  correct  calling  BCOREC 
The  osculated  characters  and  last-fixed  characters  do  not  have 
many  classes  to  build  any  tree  analyzers  and  the  stroke  combinations 
which  were  explained  in  the  semantic  explanation  section  can  be  imple¬ 
mented  without  any  other  considerations  for  the  characters  of  the 
classes , 
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The  relative  characters  have  more  complicated  relations  among  the 
strokes  for  the  character  composition  and  the  stroke  combinations  for 
the  relative  characters  are  defined  in  Table  IV. 

This  table  is  similar  to  Table  III  except  that  the  row  strokes  are 
the  earlier  stroke  in  the  tree  organization,  and  the  column  strokes  are 
the  next  stroke  to  the  row  strokes.  Each  stroke  can  be  any  side  of  the 
character  depending  on  the  neighboring  conditions. 

From  Table  IV,  the  stroke  30-1  has  a  parent  node  which  can  be 
recognized  as  the  character  's'  or  can  be  first  side  of  any  character 
having  the  children  node  as  the  next  side  of  the  character  depending 
on  the  neighboring  conditions. 

The  following  list  shows  tie  summarized  program  for  the  priority 
in  stroke  combination  and  evaluation  of  the  characteristics  of  each 
stroke  for  the  tree  of  the  stroke  30-1  as  shown  in  Figure  23. 
if  SD(I)  =  30-1 

and  SD(I+1)  =  30-1 

check  !^'  calling  SCHEK 
if  true  then  CHA(I)  =  's' 

if  false  then  check  '/If'1  at  children  nodes  calling  VCHEK 
if  true  then  CHA(I)  =  'w' 
if  false  then  CHA(I)  =  'u' 
and  SD(I+1)  =  30-3 

check  VO/'  calling  SCHEK 
if  true  then  CHA(I)  -  's' 
if  false  then  CHA(I)  =  'y' 
and  SD(I+1)  =  302-1  or  32-1 
check  V<2,'  calling  SCHEK 


if  true  then  CHA(I)  =  's' 
if  false  then  check  Vty-'  calling  VCHEK 
if  true  then  CHA(I)  =  'v' 

if  false  then  check  at  children  nodes  calling  VCHEK 

if  true  then  CHA(I)  =  V 
if  false  then  CHA(I)  =  'u* 

The  stroke  302-1  has  a  parent  node  which  could  be  coded  into 
several  different  characters  depending  on  the  characteristics  of  the 
parent  node  and  four  children  nodes  which  could  be  coded  as  second 
stroke  of  the  character  with  the  parent  stroke  as  the  first  part  of 
the  character  depending  on  the  decision  for  the  parent  node  during  the 
beginning  execution  of  the  tree  shown  in  Figure  24. 

The  following  is  the  summarized  program  for  the  stroke  302-1; 
if  SD(I)  =  302-1 

and  SD(I+1)  =  30-1 

check  '/Ci/'  calling  SCHEK 

if  true  then  CHA(I)  =  'sT 

if  false  then  check  '/C  ’  calling  CCHEK 

if  true  then  compare  '  to  'JL'  calling  CVSE 
if  false  then  check  ’A-'  calling  RCHEK 
if  true  then  CHA(I)  =  ?r? 
if  false  then  check  at  children  node 

if  true  then  CHA(I)  =  ?w' 
if  false  then  CHA(I)  =  'u* 
and  SD(I+1)  =  30-3 
check  calling  SCHEK 

if  true  then  CHA(I)  -  fs' 
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if  false  then  check  '/C'  calling  CCHEK 

if  true  then  compare  '/£/'  to  calling  CVSE 

if  false  then  check  'F  at  children  node  calling  PCHEK 
if  true  then  CHA(I)  =  ’r* 
if  false  then  CHA(I)  =  *y! 
and  SD(I+1)  =  302-1  or  32-1 
check  calling  SCHEK 

if  true  then  CHA(I)  =  's' 
if  false  then  check  '/ V  calling  VCHEK 
if  true  then  CHA(I)  =  'v' 
if  false  then  check  */C-'  calling  CCHEK 

if  true  then  compare  ' to  'JtX  calling  CVSE 
if  false  then  check  'A,'  calling  RCHEK 
if  true  then  CHA(I)  =  'r' 
if  false  then  check  '/l T'  at  children  nodes 
if  true  then  CHA(I)  =  'w' 
if  false  then  CHA(I)  =  'u' 

The  stroke  32-1  has  a  parent  node  which  could  be  coded  as  the 
character  '/!»'  or  as  the  first  stroke  of  a  character  having  the 
children  nodes  as  the  second  strokes  of  the  characters  as  shown  in 
Figure  25. 

The  tree  would  j  analyzed  by  processing  the  parent  node  first 
and  then  the  children  node  will  be  processed  along  with  the  parent 
node.  The  following  is  the  summarized  program  for  the  tree  of  the 
relative  stroke  32-1. 


Figure  25*  Tree  organization  for  the  relative  stroke  32-1 


if  SD(I)  =  32-1 

and  SD(I+1)  =  30-1 
check  '/U'  calling  RCHEK 
if  true  then  CHA(I)  =  'r' 

if  false  then  check  at  children  node 

if  true  then  CHA(I)  =  'w' 
if  false  then  CHA(I)  =  fu' 
and  SD(I+1)  =  302-I  or  32-1 
check  '/IT1  calling  VCHEK 
if  true  then  CHA(I)  =  V 
if  false  then  check  calling  RCHEK 


if  true  then  CHA(I)  =  ’r’ 

if  false  then  check  V'  at  children  nodes 


if  true  then  CHA(I)  =  V 
if  false  then  CHA(I)  =  'u' 

The  stroke  3202-1  has  a  parent  node  which  could  be  coded  into 

several  different  characters  depending  on  the  characteristics  of  the 

node  and  three  children  nodes  which  could  be  coded  as  the  second 

stroke  of  the  character  having  the  parent  node  as  the  first  stroke 
of  the  character. 

The  tree  is  shown  in  Figure  26  and  the  analyser  is  listed  as 
following : 

if  SD(I)  =  3202-1 


and  SD(l+i)  =  30-3 
check  '/Q. '  calling  SCHEK 
if  true  then  CHA(I)  =  's' 
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if  false  then  check  ’p*'  at  children  nodes  calling  PCHEK 
if  true  then  CHA(i)  =  'r 1 
if  false  then  CHA(I)  =  'y' 
and  SD(I+1)  =  302-1  or  32-1 
check  'A*'  calling  SCHEK 
if  true  then  CHA(l)  =  's' 
if  false  then  check  '/IT'  calling  VCHEK 
if  true  then  CHA(I)  =  'v* 
if  false  then  CHA(l)  =  'r' 

The  stroke  320-1  has  a  parent  node  and  two  children  nodes  as 
shown  in  Table  IV,  The  following  is  the  list  for  the  summarized 
program  for  the  tree  of  stroke  320-1, 
if  SD(1)  -  320-1 

and  SD ( 1+1 )  =  30-3 

check  'A'  calling  SCHEK 
if  true  then  CHA(.I)  =  's' 

if  false  then  check  'p'*  at  children  node  calling  PCHEK 
if  true  then  CHA(l)  =  'r' 
if  false  then  CHA(I)  -  'y' 
and  SDCI+1)  =  32-1 

check  '/V'  calling  VCHEK 
if  true  then  CHA(I)  -  ’v' 
if  false  then  check  '  calling  SCHEK 
if  true  then  CHA(I)  =  's’ 
if  false  then  CHA(I)  =  *r' 


airect  combination  is  suggested  to  combine  the  strokes  for  character 
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composition 

The  parent  stroke  3102-1  does  not  have  any  children  node  and  the 
only  routine  CVSE  is  requested  to  identify  the  difference  of  the 
characteristics  between  the  characters , 

Those  local  routines  which  were  used  in  this  section  will  be 
presented  in  the  next  section, 

5  3  Local  Discriminating  Routines 

The  hierarchical  organization  of  the  major  characteristics  of 
the  strokes  classified  the  strokes  of  the  writing  into  several  levels 
of  priority  for  the  character  compositions «  The  stroke  group  of  each 
level  is  classified  into  further  discriminated  gr  ups  by  the  order 
in  character  combination 

To  get  the  final  decision  for  the  recognition  of  the  characters 
from  the  stroke  combinations  which  already  are  classified  by  the  char¬ 
acteristics  of  the  strokes  and  orders  in  combination  of  strokes,  some 
further  discriminating  routines  must  be  applied  for  complete  recogni¬ 
tion  of  the  groups  which  still  have  more  than  one  member* 

These  routines  do  not  have  complicated  functions  to  complete  the 
recognition  Each  routine  has  only  independent  operations  from  other 
routines ,  and  the  operations  are  simple  and  fairly  short  because  only 
specified  parts  of  the  characteristics  are  checked  by  the  routine. 

Each  routine  might  take  a  simple  logical  evaluation  to  compute 
the  relative  characteristics  comparing  the  characteristics  of  the 
members  in  that  class 
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The  evaluations  of  the  characteristics  in  each  routine  are  listed 
briefly  as  following. 

1.  CCHEK 

In  Figure  27 

if  XD  greater  than  NY/5  then  check  =  true 
else  check  =  false 

2.  CVSE 

In  Figure  28 

check  the  curve  1-3  compare  tc  dashed  line  1-3 
if  the  curve  is  lower  than  the  dashed  line 
and  the  maximum  YD  greater  than  NY/ 8  then 
CHA(I)  =  'e'  else  CHA(I)  =  'c' 

3.  GVSQ 

In  Figure  29 

check  the  locations  of  the  curve  1-2  regard  to  curve  2-3 
if  curve  2-3  is  left  to  curve  1-2  then  CHA(I)  =  f g f  else 
CHA(I)  =  V 

4.  HKVSL 

In  Figure  30 

check  the  XD  between  the  point  1  and  point  2 
count  two  counters  when 
©  XD  is  greater  than  NY/5 
(D  XD  is  less  than  NY/5 

if  counter  ©  is  less  than  counter  ©  then  check  =  true 


else  check  =  false 
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V/  The  evaluations  of  the  characteristics  in  each  routine  are  listed 

briefly  as  following. 

1.  CCHEK 

In  Figure  27 

if  XD  greater  than  NY/5  then  check  =  true 
else  check  =  false 

2.  CVSE 

In  Figure  28 

check  the  curve  1-3  compare  to  dashed  line  1-3 
if  the  curve  is  lower  than  the  dashed  line 
and  the  maximum  YD  greater  than  NY/8  then 
CHA(I)  =  ’e*  else  CHA(I)  =  'c' 

3.  GVSQ 

In  Figure  29 

check  the  locations  of  the  curve  1-2  regard  to  curve  2-3 
if  curve  2-3  is  left  to  curve  1-2  then  CHA(I)  =  * g f  else 
CHA(I)  =  V 

4 .  HKVSL 

In  Figure  30 

check  the  XD  between  the  point  1  and  point  2 
count  two  counters  when 
©  XD  is  greater  than  NY/5 
©  XD  is  less  than  NY/5 

if  counter  ©  is  less  than  counter  ©  then  check  =  true 
else  check  =  false 
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5 .  HVSK 

In  Figure  31 

if  (X(1)-X(2))/(X(4)-X(3))  greater  than  1.5  and 
the  tangent  of  point  4  toward  point  1  is  less 
than  1.0  then  CHA(I)  =  ?k'  else  CHA(I)  ■  'hf 

6 .  PCHEK 

In  Figure  32 

if  the  curve  3-4  is  right  side  to  dashed  line  3-4 
and  the  curve  2-3  is  left  ,"o  the  dashed  line  2-3 
and  X(4)-X(l)  is  less  than  NYD/6  then  check  =  true 
else  check  =  false 

7.  RCHEK 

In  Figure  33 

if  XD  greater  than  NYD/5  then  check  =  true 
else  check  =  false 

8.  SCHEK 

In  Figure  34 

if  the  slope  of  dashed  line  1-2  is  less  than  10  and  X(l)  is 
greater  than  X(2)  then  check  =  true  else  check  =  false 

9 .  VCHEK 

In  Figure  35 

if  X(l)-X(3)  greater  than  NY/4  or 
Y(2)  greater  than  Y(3)-NY/2  then 


check  =  true  else  check  *  false 


CHAPTER  VI 


SELF-CORRECTION  BY  ITERATION 
6.1  Self-Correction  by  Iteration 

The  syntax  organization  for  this  system  has  dealt  with  the  error 
corrections  of  cutting  algorithms  and  the  error  corrections  in  stroke 
combination  for  character  compositions. 

The  major  types  of  error  in  this  experiment  are  classified  as 
the  following  cases;  the  relative  position  coding  error,  the  writing 
cutting  error  and  the  decision  error  in  relative  discriminating 
routines. 

The  regular  writing  would  match  the  bottom  of  each  character  to 

the  base  line  of  the  writing  except  the  strokes  of  position  code  3  and 
position  code  4. 

The  iterative  algorithm  for  this  position  coding  routine  cover 

the  wider  range  of  writings  which  do  not  match  the  base  line  of  the 
writing. 

The  iterative  coding  routine  for  positional  code  is  designed 
as  following: 

Pick  the  lowest  point  out  of  a  group  of  the  highest  points  from 
each  stroke,  and  define  it  as  the  upper  base  1-ine.  Pick  the  highest 
point  out  of  a  group  of  the  lowest  points  from  each  stroke  and  define 
it  as  the  lower  base  line.  Define  the  allowable  margin  as  half  of  the 
difference  between  these  two  base  lines. 

Check  the  highest  point  of  each  stroke  to  determine  whether  the 
point  belongs  to  the  upper  region  which  is  bounded  by  the  upper  base 
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line  as  the  bottom  side  line  and  the  upper  base  line  position  plus 
allowable  range  margin  as  the  upper  side  line  of  the  region.  Eval¬ 
uate  the  average  of  the  highest  point  using  the  highest  points  of  the 
strokes  which  belong  to  the  upper  region.  Define  this  average  as  the 
new  upper  base  line. 

Check  the  lowest  point  of  each  stroke  to  determine  whether  the 
point  belongs  to  the  lower  region  which  is  bounded  by  the  lower  base 
line  as  the  top  side  line  and  he  lower  base  line  position  minus  the 
allowable  range  margin  as  the  lower  side  line  of  the  region.  Eval¬ 
uate  the  average  of  the  lowest  point  using  the  lowest  points  of  the 
strokes  which  belong  to  the  lower  region.  Define  this  average  as  the 
new  lower  base  line. 

This  routine  is  repeated  a  number  of  times  for  t Vi  iteration  and 
then  the  position  coding  is  determined  through  the  rules  explained  in 
earlier  chapters. 

The  writing  cutting  algorithm  works  well  just  as  it  is  defined 
in  earlier  chapters,  except  for  the  characters  'b ' ,  'o',  V,  ’w', 
because  of  the  uncareful  writings. 

The  corrections  for  writing  cutting  algorithms  were  implemented 
in  syntax  organization  for  the  characters  ’b '  and  ’o'  and  the  hierarchy 
was  reorganized  from  the  un-correcting  syntax  and  the  analyzer  was 
adjusted  for  the  reorganization  of  the  syntax. 

The  error  from  this  cutting  algorithm  generates  an  improper  com¬ 
bination  of  the  strokes  for  the  character  compositions.  The  feedback 
loop  is  designed  to  cover  this  early  level  of  hierarchy  for  the  itera¬ 
tion  of  this  algorithm. 


The  correcting  routines  for  the  characters  ’o’  and  'b'  are  quite 
similar  except  the  local  organization  of  the  priority  for  the  compar¬ 
ative  discriminating  routines. 

The  combination  of  the  strokes  is  checked  by  the  characteristics 
of  the  character  and  the  correctly  if  the  distorted  information  is 
followed  for  the  neighboring  strokes. 

The  major  distorted  information  of  the  neighboring  stroke  is  the 
stroke  coding  error.  The  stroke  can  have  wrong  stroke  parts  which 
belong  to  the  previous  character. 

The  character  correcting  routine  will  regenerate  the  lost  stroke 
after  checking  the  character  characteristics,  and  other  information 
which  was  lost  because  of  the  error  in  writing  cutting  algorithm  for 
previous  stroke  will  be  restored  by  the  correcting  routine. 

The  decision  error  in  relative  discriminating  routines  comes 
from  the  threshold  value  of  the  characteristic  evaluation. 

Since  each  routine  is  for  the  comparative  evaluation  of  the 
characteristics  of  the  members  of  the  classified  group,  there  are 

always  many  relative  characteristics  to  give  solid  information  for 
the  decision. 

The  threshold  value  can  be  fixed  by  making  some  learning  experi¬ 
ment,  and  since  the  routine  is  relatively  referenced  only  for  the 
member  of  the  class  which  the  routine  is  related,  the  threshold  value 
can  be  locally  relative  without  considering  the  entire  system  for  the 
optimizations. 
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6.2  Stability  of  the  Self-Correcting  Algorithm 

Feedback  theory  has  been  studied  in  many  engineering  aspects  to 
control  the  stable  output  of  the  analog  systems. 

The  analog  computer  is  another  system  which  applies  the  feedback 
theory  to  simulate  a  mathematical  model. 

A  digital  system  can  be  substituted  for  the  analog  system  or  part 

of  the  analog  system  for  control  purpose  or  computing  purpose.  Digital 

Differential  Analyter  can  be  a  typical  example  for  the  digital  feedback 
system. 

The  stability  of  the  system  has  been  discussed  in  many  areas  for 
the  analog  system  and  sampled  data  system  for  the  hardware  organisation. 

The  feedback  theory  for  the  stability  of  the  software  iterating 
system  has  been  implemented  in  this  experiment  during  the  organisation 

of  the  syntax  and  the  criteria  of  the  stability  for  iterative  software 
system  is  discussed  in  this  sect Jon. 

In  Figure  36.  the  block  diagram  for  the  recognition  scheme  was 
Shown  and  the  feedback  fro.  error  correcting  block  to  error  checking 
blo^k  is  designed  for  this  experiment. 

After  the  procedures  of  figure  extraction,  the  program  will  start 

to  recognize  the  stroke  combinations  as  the  character  composition  by 

checking  the  errors  in  character  recognition,  and  it  would  correct 

the  rest  of  the  information  if  any  error  is  found  by  the  syntax 
analyzer. 

The  corrected  information  requires  another  Iteration  to  check  any 
possible  error  and  take  new  stroke  cognation  for  the  recognition. 
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The  number  of  iterations  is  decided  by  the  error  correcting  algorithm. 

To  design  a  general  control  system,  the  stability  of  the  hard¬ 
ware  system  may  be  checked  by  the  Routh  Criteria  (9) . 

For  the  self -corrective  system  by  iteration,  the  stability  will 
be  designed  by  the  syntax  organization,  and  the  priority  of  the  charac¬ 
teristics  has  to  be  studied  for  each  stroke,  and  the  level  of  error 
has  to  be  qualified  by  the  types  of  errors.  The  hierarchical  organ¬ 
ization  for  such  work  is  always  complicated,  but  a  good  solution  gives 
always  a  reliable  recognition. 


CHAPTER  VII 


CONCLUSIONS 

7.1  Accuracy  of  Recognition 

The  syntax-directed  algorithm  for  handwriting  recognition  was 
constructed  using  self-correcting  loops  to  check  for  writing  errors 
and  to  correct  the  errors  made  by  normal  writers.  A  simple  experi¬ 
ment  without  feedback  loops  for  handwriting  recognition  was  constructed 
during  the  early  period  of  laboratory'  work  and  the  recognition  was 
highly  reliable  for  writers  who  had  short  training  using  the  standard 
styles . 

For  more  reliable  recognition  for  uncareful  writers,  the  feedback 
loops  were  implemented  to  eliminate  the  major  failures  in  recognition 
by  the  first  system.  The  recognition  late  for  the  system  with  feed¬ 
back  loops  was  quite  reliable  and  the  types  of  error  which  were  the 
major  errors  in  the  early  system  were  eliminated,  and  the  variations 
in  allowable  writings  for  normal  users  were  much  broader. 

To  improve  the  recognition  for  all  types  of  writing,  a  number  of 
feedback  loops  should  be  implemented.  Such  increased  capability  to 
recognize  all  types  of  writing  may  be  of  limited  value  because  of 
increased  cost  of  operation. 

The  feedback  loops  were  implemented  in  such  a  way  as  to  widen 
the  range  of  users  and  also  keep  the  efficiency  of  the  program  high. 

The  present  degree  of  feedback  iteration  is  quite  reliable  for  the 
interactive  communication  experiment  for  recognition  of  cursive  writing. 
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7.2  Firther  Work 

For  further  efficiency  and  broader  applications,  the  probable 
future  work  In  organizing  this  system  can  be  discussed  as  follows. 

The  data  tablet  Is  required  to  have  Increased  resolution  for 
writing  recognition.  The  present  3%  per  inch  resolution  limits  the 
sire  of  characters  and  the  larger  characters  are  inconvenient  to 
write  neatly  for  the  writers.  A  higher  resolution  tablet  is  impor¬ 
tant  for  reliable  and  accurate  recording  of  inputs. 

Since  the  system  program  for  the  sampling  procedure  in  the  PDP-8 
is  link-d  with  other  system  programs  in  the  graphics  system,  the  speed 
Of  the  data  sampling  is  forced  to  be  slower  than  in  a  single  purpose 
graphic  system.  The  speed  of  sampling  procedure  is  another  important 
factor  for  the  higher  resolution  system,  which  usually  varies  depend- 
ing  on  the  size  of  program  instruction. 

A  hierarchical  organization  with  feedback  loops  for  the  positional 
code  may  be  suggested  for  the  relative  normal  size  coding  algorithm  to 
correct  in  the  positional  code  which  usually  arise  from  unknown  noises. 
It  is  suggested  to  design  the  feedback  loops  independent  of  the  loops 
of  the  recognizing  procedures  to  avoid  the  complexity  of  the  system. 

Also  more  loops  can  be  added  to  the  recognizing  routines  without 
interfering  with  the  existing  loops  to  check  the  minor  errors. 

Simple  learning  procedures  may  be  used  for  some  particular  entries 
of  the  syntactic  organization  which  do  not  receive  the  reliable  thresh¬ 
old  value  for  the  decision  in  local  discriminating  routines. 

This  syntactic  organization  can  employ  such  conventional  ideas  in 
pattern  recognition  (4)  in  any  part  and  as  any  application. 
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APPENDIX 


9.1  Listing  of  Program 


(3 A  RUN  PATTERN » 496606 » 2 »  90  Y.  T.  KIN!  SYNTAX 

it)  ASG  A— SDEVON 
0  ASG  G=$$SB2$ 

0  XQT  CUR 
IN  A 
BEGIN 

EXTERNAL  FORTRAN  PROCEDURE  BLANK t CHAR  t CHR INT r  GETCHR » GETTAB » 

idi  »  Idle  »  intet  j  #  l ine  #  lnType  »  reload  »  setbuf  ,  setmax  »  setm  i  n  , 

SETSIZ , SETSWP , SNOFLE » SWAP » TABABL , TAB INT » TABTOLS 
INTEGER  ARRAY  DFILE (1 : 3000 ), X ( 0 : 3000 ), Y ( 0 ! 3000 ), Z ( 1 S3000 ) $ 
INTEGER  A  r  B » DUMMY  » J » K  #  K 1 » Kg ,  KN.AX » L ,  LMAX  *  N  r  SW$ 

STRING  CHAOO)  »CX(  1)  »PCHA(2)  »SCHA(8)$ 

LOCAL  LABEL  CHR»ENIT, ID»MAIN,OT»XYs 
RELOADS 

IDI  (DFILE»DUNiMY)$ 

INTEN (2) $ 

SETMAX (4 ) $ 

SETMINS 

tababls 

SETSWP (4*4000)$ 

TABINTU,XY)S 

CHRINT(1,CHR)$ 

tartolujs 

setsizujs 

OT:  J=0$  SETBUF {5fDUMMY+3)'i 

SNDFLE (DFIl  E »OUMMY) $  IDI (DFILE r DUMMY ) $ 
id:  idles  Si> aps 

GO  TO  IDT 

xy:  gettab (a#r»sw> $  • 

IF  SW  NEG  0  THEN  BEGIN  J=J+1S  X(J)=X(J-1)S 
Y(J)=Y(J-I)s  Z(J)=1$  ends 
IF  SW  EGL  1  THEN  LNTYPE(O)  ELSE  LNTYPE ( 3) $ 

IF  SW  EUL  -1  THEN  GO  TO  MAINS 
L I NE ( DF I LE » A » R » DUMMY ) S 

J=J+1$  X(J)=AS  Y(J)=SS  Z(J)=2S 
GO  TO  XY$ 

CHR:  GETCHR (CX(1)  )S 

IF  CX(1)  EOL  »X»  THEN  Go  TO  ENITS 

IDI(GFILE»DUMNY)S 

GO  TO  OTs 
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main:  lmax=js. 

IF  J  LSS  bU  THEN  GO  TO  OT$ 

COMMENT  DATA  FILTER  ************************************* 
FOR  J=(3>l»LMAX-2)  DO 


IF  Z(J-l)  EGL  2  AND  Z(J)  EOL  2 
IF  X(J)  LSS  X(J-l)  AND  X(J) 
AND  X ( J+2)  LSS  X ( J+l ) 

OR  X(J)  GTR  X(J-l)  AND  X ( J ) 
AND  X ( J+2)  GTR  X (J+l ) 

then  x(j)=x(j-n$ 

IF  Y(J)  LSS  Y(J-l)  AND  Y(J) 
AND  Y (J+2)  LSS  Y(J+1) 

OR  Y ( J)  GTR  Y(J-l)  AND  Y(J) 
AND  Y (J+2)  GTR  Y ( J+l ) 
THEN  Y(J)=Y(J-1)$ 

ENDS 


AND  Z(J+1)  EGL  2  THEN  BEGIN 
LSS  X(J+1) 

GTK  X(J+1) 

LSS  Y(J+1) 

GTR  Y (J+l) 


N=LMAX$  L=l$  LMAX-1S 
FOR  J=(2rl»N)  DO  BEGIN 

IF  X ( J)  EQL  X (L)  AND  Y(j)  EQL  Y ( L )  AND  Z(J)  EQL  Z(L) 
OR  Z(J)  EGL  1  AND  Z(L)  EQL  1  THEN  GO  TO  LL$ 
L=L+1$  LMAX=LMAX+1$ 

X(L)=X(J)$  Y(L)=Y(J)$  Z(L>=2(J)$ 
ll:  ends 


KMAX=LMAXS 

IF  Z(KMAX)  FOL  2  THEN  BEGIN  X (KMAX+1 )=X (KMAX ) s 

Y(KMAX+1)=Y(KMAX)$  Z (KMAX+1 )=1S  KMAXSKMAX+I*  ENDS 
COMMENj  BREAK  WRITING  ***♦*****♦**♦*************♦♦*♦)»(*♦**  $ 
BEGIN 

INTEGER  ARRAY  CHEK ( 0 J20 ) , DX ( 0 J 2000 ) »DY  (0 J2000 ) > JMAX ( 0 :20 ) t 
LMAX(1:20) t LXD ( 1 J  20  » 1 : 7 ) ,LXI ( 1 120 » 1 17) »LVD ( 1 : 20 , 1 : 7) , 
mmax(i:2o»o:7)  »omax(1:2oj  #p'd(i:20)  ,pmax<i:20»o:7) » 
SCOD(l:20»i:7)  #5D(  1J20)  ,Y.1AX(  1:20 )  »YMIN(i:20)$ 

REAL  ARRAY  SSCOD(i:20)s 

INTEGER  DEC,DXDLC»DXINC,DYDEC»DYINC>I,IMAX,INCrJlrJ2rLX»LY, 
MfMXrfJi  »NEDE»NEIN»POUE»POlN»  YB»  YDEC»  YDElNrYlNCr  YINDEr  YT$ 
BOOLEAN  ARRAY  XCOD ( 1 :20 » 1 • 7) » YCOD ( 1 120 r 1 :7) $ 

LOCAL  LABEL  LL.3S 

FOR  K=(2»1»KMAX)  DO  BEGIN 

DX(K)=X(K)-X(K-1)S  OY(K)rY(K)-Y(K-l)$  ENDS 
I=1S  IMAX=1S  JMAX(0)=0$  N1=4S 
FOR  K=(N1+4»1,KMAX-1)  DO  BEGIN 

if  z (k >  neg  2  then  begin 

INTEGER  YblG »  YSMA>K3»K4$ 

JMAX(I)=K$  MMAX(I»1)=K* 

IF  K  EGL  KMAX  THEN  GO  To  LL3S 
1=1+1$  IMAX=IMAX+1S 
YBIG=0$  YSMA=0$ 

FOR  K3= (K+l » 1 »KMAX )  DO  BEGIN 

IF  Y (K3)  GTR  Y(K3-1)  THEN  YBIG=YDIG+1$ 

IF  Y(K3)  LSS  Y (K3-1 )  THEN  YSMA=YSMA+1$ 


if  ri>i.  r£j  a  ok  y  >  ia  •.  a  then  cv  lo  lL3 

IF  4(Kv  )  NLo  2  T ML.'j  u.GIH  K4=Ko2>  K3=KMAX+i.>  E.»D$  END" 

IF  YoIG  llS  8  AND  YS.nA  LjS  8  THEN 

j.LGIW  Sl(I)=7$  LMAX(I)  =  11  K=K4-1$  ENDS 
GO  1 0  Ll  Ji  til  Jo. 

IF  DYCK-2)  LEO  ti  AND  DY  (K-± )  Lr.C  0  AND  DY  (K )  GTK  0  THE\'  BEGIN 
Y1NC=U$  YDFC=G$  YlNOE=us»  /I  LIi^Ol 
FOR  K2=(K-l»-l*JMAX(I-l)+2)  00  BEGIN 
IF  DY ( K2 )  LSS  0  THEN  YhEC=YueC+1S 
IF  DYCK?)  GTR  G  THEN  YDE IN=YDElN+l$ 

IF  YDEC  C.EG  2  OR  YOEIN  GEO  2  OR  Z  ( K 2 )  NEG  2  THE.) 

K2=JMAX( 1-1)1  ENl>$ 

FOR  Kl=(|  » 1 »KMAX-i)  00  hEGIN 

IF  DY(KI)  LSS  u  THEN  YlriJE=YlNOE+lS 
IF  DY(KI)  GTK  0  TmLN  YINC=YIi)C+1$ 

IF  Yl.jC  CtiO  2  OR  YIiJOFi  uC>  2  OH  Z(Kl)  NEC)  ?  OR 
ZCM  +  l)  NrQ  2  OR  2(isl+2)  MEQ  2  THEN  K1=KMAX$  END'S 
IF  YOLC  oL'  2  mND  YINC  GEu  2  THEN  BEGIN  1=1+11  IMAX=IMAX+11 
JMAXC I )=Kl 

IF  JMAX  { I  —  1 )  -JMAX  ( 1-2 )  LSS  4  AN.)  SD(I-l)  NEQ  7  THEN  PEGIM 
1=1-11  IMAX=1MAX-1S  ENDS  END!  END! 

J  JMAX  ( I ) =KS  MMAX  ( I » 1 )  =K$ 

END! 

IF  JMAX ( I MAX ) -JMAX ( IMAX-1 )  LSS  6  AND  SDCIMAX)  NFQ  7  THEN 
IMAX=IMAX-i 1 

FOR  I  =  ( 1  r  1  r  1 M  •'  A )  DO  BEGIN  0)14(1)  =  *  +  *$  CH£K(I)=2I, 

pd  c  i )  =01  ;  .oi 

COMMENT  bt<i  CURVE  *************************************  $ 
MMAX  ( 1 » ll ,  =  <•$ 

FOR  I=(l»l»  If.AX)  DO  BEGIN 
FOR  L=U,i»7)  DO  BEGIN 

LX:iI,L)=Ol  LXOl  I  »L)=OJ>  LYD ( I  »l.)  =0$  ENDS 
IF  I  GTK  1  THEN  MMAX ( I  Ml ) =MMAX ( I~1 r LMAX ( 1-1 ) ) $ 

IF  SD(I)  EOL  7  THEN  GO  TO  LL5$ 

L=ll  LMAX ( I ) =1$  MMAX (  I » 1 ) =J,«1AX ( I - 1 ) +7$ 

FOR  J= ( JMAX ( I— 1 ) +7  r 1 r J  ‘AX ( I ) )  DO  BEGIN 

IF  DXCJ-2)  LEO  u  AND  jXCJ“1)  LEG  0  AND  DX(J)  GTR  0  THEN  Fr  \ 
NEu£=0$  NElN=Oi  PODEzGi  POINzGi 
FOR  Jl=(J»l»JMAX(i) )  DO  BEGIN 

IF  DX(Jl)  LSS  0  THEN  PODE=PODt+l$ 

IF  DX(Jl)  GTR  0  THEN  P0IN=P0IN+1$ 

IF  POIN  GLQ  2  OF  POOE  GFQ  2  THEN  J1=JMAX ( I ) +1$  END? 

FOR  J2= ( J-l »-l » MMax ( I f L-l )  +  2 )  DO  BEGIN 
IF  DXCJ2)  LSS  0  THEN  NEDE=NE0C+1$ 

IF  DX(J?)  GTR  0  THEN  NEIN=NEIN+1$ 

IF  NEDE  GLQ  2  Ok  NElN  .GEQ  2  THEN  J2=MMAX ( 1 1 L-l ) S  END! 

IF  NEOE  GEQ  2  AND  POIN  GEQ  ?  THEN  LXI ( I rL+1 ) =1$  ENDS 
IF  DXCJ-2)  GEO  0  AND  DX(J-l)  GEQ  0  AND  DX(J)  LSS  0  THEN  BEGIN 
NEU£=0$  NLIN=01  PODEzOs  POIN=bi 
FOR  Ji=  (  J  #  1 » JMAX  CD)  DO  BEGIN 
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IF  OX(Jl)  LSS  0  THEN  P0DE=P0DE+1S 
IF  OX(Jl)  GTR  0  THEN  P0IN=P0IN+1S 

IF  PulN  GEQ  2  OR  PODE  GEO  2  THEN  J1=JMAX l I ) +1S  ENDS 
FOR  J2=(J-lf-l»MMAX(I#L-l)+2)  DO  BEGIN 
IF  DX(J2)  LSS  0  THEN  NEDE=NEDE+1S 
IF  DX(J2)  GTR  0  THEN  fJEI U=NEIN+1$ 

IF  NfcIN  GEQ  2  OR  NEDE  GEO  2  THEN  J2=MMAX ( I »L-1 ) $  ENDS 
IF  NEIN  GEO  2  AND  PODE  GEO  2  THEN  LXD ( I t L+l ) =1$  ENDS 
IF  DY  («J-2 )  GEO  0  AND  DY(J-l)  GEQ  0  AND  DY(J)  LSS  0  THEN  BEGIN 
NEDE=0$  NEIN=0$  PODEfcOs  POIN=0$ 

FOR  J t JMAX(I) )  DO  BEGIN 

IF  DY(Jl)  LSS  0  THEN  PODE=PODE+l$ 

IF  DY(Jl)  GTR  0  THEN  P0IN=P0IN+1S 

IF  POIN  GEQ  2  OR  POOE  GEQ  2  THEN  J1=JMAX < I ) +1S  ENDS 
FOR  J2=(J-l»-l#MMAX(I#L-l)+2)  DO  BEGIN 
IF  DY(J2)  LSS  0  THEN  NEDE=NEDE+1S 
IF  DY(J2)  GTR  0  THEN  NEIN=NEIN+1S 

IF  NEIN  GEQ  2  OR  NEDE  GEQ  2  THEN  J2=MMAX ( I »L-1 ) $  ENDS 
IF  NEIN  GEQ  2  AND  PODE  GEQ  2  THEN  LYD ( I » L+l ) =1$  ENDS 
IF  LXI ( I »L+1 )  EQL  1  OR  LXD(I,L+1)  EQL  1  OR  LYD( I rL+1)  EQL  1 
THEN  BEGIN  L=L+1$  LMAX ( I ) =LMAX ( I ) +1S  MMAX(I»L)=J$  END 
ELSE  MMAXU»L)=J$  ENOS 
LL5:  ENDS 

COMMENT  NAME  CURVE  ***************************************  S 
FOR  I=(1»1»IMAX)  DO  BEGIN  IF  SDU)  EQL  7  THEN  GO  TO  LL4S 
FOR  L= ( 1 » 1 »LMAX ( I ) )  DO  BEGIN 

DXINC=0s  DXDEC=0S  DYINC=0$  DYDEC=0$ 

FOR  Kz  ( MM AX ( I » L“I ) +2 » 1 » MM AX ( I r L ) )  DO  BEGIN 
IF  DX(K)  GTR  0  THEN  DX INC=DXINC+1$ 

IF  DX (K)  LSS  0  THEN  DXDEC=DXDEC+1$ 

IF  K  GTR  MMAX ( 1 t L-l ) +2S  THEN  K=MMAX ( I rL) +1$  ENDS 
FOR  K=(MMAX(l»L-l)+2»lrMrAX(I»L) )  DO  BEGIN 
IF  DY ( K )  GTR  0  THEN  DYINC=DYINC+1S 
IF  UY(K)  LSS  0  THEN  DY0EC=DYDEC+1$ 

IF  K  GTP  MMAX ( I »L-1 ) +25  THEN  K=MMAX ( I »L)+1$  ENDS 
IF  DXINC  GTR  DXDEC  THEN  XCOO(  IrL)"-TRUE  ELSE 
XC0D(I»L)=FALSE4 

IF  DYING  GTR  DYDEC  THEN  YCOD< I rL)=TRUE  ELSE 
YCOD(I»L)=FALSES 

IF  XCOD(I»L)  AND  YCOD(I.L)  THEN  SC0D(IrL)=3  ELSE 
IF  XCOD ( I »L)  AND  NOT  YCuQ(IrL)  THEN  SC0D(IrL)=2  ELSE 
IF  NOT  XCOD ( I »L)  AND  YCoD(I»L)  THEN  SCOD(IrL)=l  ELSE 
SC0D(I»L)=6S  ENDS 
FOR  K=(l»l»3)  DO  BEGIN 
M=LMAX(I)-1$ 

FOR  L=(i,lrM)  DO 

IF  SCCD ( I »  L)  EQL  SCou(i»L+l> 

OR  SCOD  ( I  » L)  EQL  1  AND  SCODQrL+l)  EQL  3  THEN  BEGIN 
FOR  J=(L»1»M)  DO  BEGIN 
MMAX ( I » J ) =MMAX ( I , J+l ) S 
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SCOD(  I * J)=SCuD(  I  » J*1 >S  l  KBS 
LMAX  ( I )  =Li»lAX  t  I )  —  1  u.  M=lMAX<I)-1S  ENOS 

ENDS 

FOR  L=(1»1»LMAX(I>)  DO  BLGIH 

if  scooti»i.)  eol  u  rntN  suu(l)  =  *c»  else 

IF  SCUD  ( I » l. )  EOL  1  THEN  SCHA(L)  =  '1»  ELSE 

IF  SCGU(IrL)  LOL  2  THEN  SCHA<L>=’2«  ELSE 

IF  SCOD  1 1 » L  )  EOL  3  Tllt.N  SCHA(L>=»3»  ELSE 

IF  SCODtlrL)  EQL  7  THEN  5CHA(L)=’7*S 
SSCOD ( I ) =SSCOO ( I ) +SCOD ( 1  »  L  ) *10** (-L ) $  ENDS 
SD ( I ) =SbCOO ( I ) *10**LMAX ( I ) s . 
i_L4I  FOR  J=(LMAX(  I)+l»l#8)  DO  SCHA(J)=*  *$ 

SCHA (A)=*a*$ 

LNTYPE<0)S 

Kl=bOi  K2=B00-I*36s 
L I NE  ( [)F  I LE » K 1 , K2 » DUMMY  )  S 
CHAR ( DF IlE  t SCHA  #  DUMMY )  S 
ENDS 

FOR  I- ( 1 » 1  r  ]  MAX )  DO  liEGIN 
OMAXt I )=LMAX ( I )S 

FOR  L=(0r lrLMAX(I) )  DO  PMAX ( I »L) =MMAX ( I »L) $  ENDS 

comment  begin  of  procs  **********************************  s 

bEG  I N 

INTEGER  ARRAY  Xb ( 1 : 20 ) » YAV ( 1 ; 20 ) t XAV ( 1 ; 20 ) t FYMI ( 1 : 20 ) 5 
INTEGER  BACK*RMIN*DIST»HD» lC.lXr IR* JJ* JX»KY»LX»M1»M2»MJ»NYD» 
SLD»SLIrSMAXrTINrTIX»TMAX»TMlN»XL»XRS 
BOOLEAN  CLOS  » CYES» FEED , Hl< Y p  , OSCL r  PYES » RYES r SYES ,  VY£S$ 
PROCEDURE  SORMAa (T » I »UMAX t TMAX »MJ) $ 

INTEGER  ARRAY  T»JMAX»TMAXS 

INTEGER  I » MJS 

BEGIN 

INTEGER  U» TBIGS 
TbIGrOS 

FOR  J=(jMAX(I-l)+3»lf JMAX(I) )  DO 

IF  T(J)  GTR  T6IG  THEN  BEGIN  TBIG=T(J)$  MJ=J$  ENDS 
TMAX(I)=TBIGS 
ENDS 

PROCEDURE  SORM I N  ( T » I* » JMAX  *  T  M I N )  $ 

INTEGER  ARRAY  t»jmax»tmins 
integer  is 

BEGIN 

INTEGER  J t TSMAs 
TSMA=1000S 

FOR  J=( JMAX(I-1)+3»1»JMAX(I) )  DO 
IF  T ( J )  LSS  TSMA  THEN  TSMA=T(J)$ 

TMINd  )=TSMA$ 

ENOS 

PROCEDURE  AVSO ( X  r Y  r LMAX » MMA X » CHA » I » CHEK  r  NYD ) $ 

INTEGER  ARRAY  X  #  Y » LMAX  * MMAX t CHEKS 
INTEGER  I »NYD$ 


SSSSSSSttS!?! 
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STRING  CHAS 
BEGIN 

INTEGER  XL  >  XD  *  b.i ,  b  Y  » M »  11 ,  M2  >  CONT  * MT  t  MR 4 

xa=o?  xu=u$  yb=os  ky=os  cofJT=ns 

FOR  M=  ( MMAX  ( I  +1 »  Q )  +2  .>  1  »MMAX  ( 1  +  1  *  LMAX  ( 1  +  1 ) -1 )  )  DO  BEGIN 
IF  Y(M)  GTR  YB  TMc;i  BEGIN  YB=Y(M)S  MT=MS  ENDS 
IF  X  ( M)  GTR  XU  THc.N  BEGIN  XB=X(M)S  MR?MS  ENDS  ENDS 
FOR  M::{MR»1»MMAX{I  +  1»L.1AX(I  +  1)  )-5)  DO 
IF  X (M+l )  LSS  X CM)  AND  Y(M+1)  GTR  Y (M)  THEN 
CONT=CONT+la 

FOR  M2=CMT»1»MMAX(I  +  1  »LMAX(I  +  l))-5)  DO 
FOR  Ml- (MI » -1 » MM A X ( t  +  i#0)+5)  DO 

IF  Y(M2)  GEQ  Y(M1)  AND  f(M2)  LEG)  Y(M1+1)  THEN 
BEGIN 

IF  X(M1)-X(M2)  GTR  XD  THEN  XD=X (Ml ) -X (M2) $ 
M1=MMAX(I  +  1»(J)S  ENDS 
FOR  M=(MT»1#MMAX(I  H»EMAX(I+1)  )  )  DO 

IF  Y(M)  LSS  Y(MMAx(I+1»0)+1)+NYD/2  THEN  BEGIN 
IF  X (M)  GTR  XB+N YD/8  THEN  KY=lS 
M=MMAX(I+1,LMAX(I+1) )+1s  ENDS 
IF  XD  GTR  NYD/S  OR  KY  EQL  1  OR  CONT  GEQ  4  THEN 
CHA(I)='0»  ELSE  ChA ( I )=* A*$ 

CHa(I+1)=»-*S  CH£K{I)=1S  CHEK(I+l)=lS 
ENDS 

PR°£v£V2£  BC0REC  (X' Y,LMAXrONAX»MMAXrPMAXrCHArIrCHEK»FEEDrSDr 

NYD)  $ 

INTEGER  ARRAY  X» Y»LMAX»OMAX»MMAXrPMAXrCHEKrSDS 
INTEGER  I»nYD$ 

BOOLEAN  FEEDS 
STRING  CHA$ 

BEGIN 

INTEGER  Ml  *  M2  »MB»ME»  BD  » DIST » L »  LE»Mr TYr  YBS 
DIST  =  1(J00S  BO-1  OU 03  YBzOS 
IF  LMAX{I+1)  GTR  1  THEN  MB=2  ELSE  MB=1$ 

FOR  M2=(MMAX(I+1,0)+1»1,mMAX(I+1»MB))  DO 
FOR  M1=(MMAX(I»0)+1»1»MMAX(I»1) )  DO  BEGIN 

OIST=SGRT ( (X(Ml)-x(M2) ) **2+ ( Y ( Ml ) -Y (M2) )**2)$ 

IF  DIST  LSS  BD  THEM  BEGIN  BD=DIST$  ME=M2$  ENDS  ENDS 
IF  BD  LSS  f 4 YD/4  THEN  BEGIN 
FOR  l.=  (l»l»LMAX(I  +  l)  )  DO 

IF  ME  GEQ  MMAX(I+1»L-1)  AND  ME  LEQ  MMAXCC+lrL) 
THEN  BEGIN  LE=L~1S 
M1=10**(LMax ( I+1)-LE)S 
SD( I+1)=SD( I+1)-(SD(I+1)//M1)*M1S 
L=LMAX(  I+D+1S  ENDS 
FOR  L=(LEf 1»LMAX( 1+1 ) )  DO 

MMAX (I+l»L-LE)=MMAX(I+lrL)$ 

LMAX ( 1+1 ) =LMAX ( I+l ) -LES 
FOR  L=(lrl»OMAX(I+l) )  DO 

IF  ME  GEQ  PMAX( I+i rL-1)  AND  ME  LEQ  PMAX(I+lrL) 


THEN  BEGIN  LF=L-1$  L=OMAX ( 1+1 ) +1$  ENDS 
IF  PMAX(I  +  l*LE+l)-f;E  LSS  5  THEN  LE=LE+1S 
FOR  L=(LE*1*0MAX(I  +  1 ) )  DO 

PMAX( I+1»L-LE)=PMAX(I+1»L)S 
OMAX ( 1  +  1 ) =OMAX ( 1  +  1 ) -LES 
IF  CHEK(I)  EQL  2  THEN  BEGIN  CHA(I)=*B*S 
CHEK(I)=1S  END* 

IF  OMAX ( 1+1 )  GTR  i  THEN  FEED=TRUE  ELSE  FEED=FALSEs 
END  ELSE  BEGIN  CI-IA  ( I  )  =  »L»  S  CHEK(I)  =  1$  ENDS 
IF  OMAXCI+1)  LEO  1  And  RD  LSS  NYD/4  THEN  BEGIN 
M1=ME+1$  M2=MMAX(I+1*LMAX(I+1) )-l$ 

FOR  M= (Ml  *  1  *  M2)  DO  BEGIN 

TY=Y(M1)+(Y(M2)-Y(M1) ) * (X (M) -X (Ml ) ) / ( X (M2) -X (Ml ) )$ 
IF  Y (M)-TY  GTR  YB  THEN  YB=Y(M)-TYS  ENDS 
IF  Yr/NYD  GTR  0.3  THEN  CHA ( 1  +  1 )  =  »R *  $ 

CHA(I+1)=»-*S  CHEK<I+l)rl$  ENDS 
ENDS 

PROCEDURE  CCHEK ( X  #  Y  #  LMAX *  MMAX , I » C YES » NYD ) $ 

INTEGER  ARRAY  X » Y »LMAX»MMAXS 
INTEGER  I »NYD$ 

BOOLEAN  CYESi 
BEGIN 

INTEGER  ML* MR,  XU»XD*  XSMA»XTEM$ 

XB=0s  XSMA=1000S  XD=0:fi 

FOR  Mr (MMAX ( I  *  0 ) +1  *  1 » MMAX ( I » 2 ) )  DO 

IF  X ( M)  GTR  XB  THEN  BEGIN  XB=X(M)$  MR=M$  ENDS 
FOR  Mr (MMAX ( I  *  1 ) +1 » 1 » MMAX ( I » LMAX ( I ) ) )  DO 

IF  X ( M )  LSS  XSMA  THEN  BEGIN  XSMA=X(M)$  ML=M$  ENDS 
FOR  Mr(MR+l,l,ML-l)  DO  REG IN 

XTEM=X(MK)+(X(ML)-X(MR) )*(Y(M)-Y(MR) )/(Y(ML)-Y(MR) )$ 
IF  XTEM-X(M)  GTR  XD  THEN  XD=XTEM-X (M) $  ENDS 
IF  XD  GTR  NYD/5  THEN  CYES=TRUE  ELSE  CYES=FALSE$ 

ENDS 

PROCEDURE  CLOSE ( X  *  Y  *  OMAX  *  PMAX r I » XR  *  NYD  *  CLOS ) $ 

IN i EGER  ARRAY  X t Y , OMAX'PMAXS 
INTEGER  IrMYOrXRS 
BOOLEAN  CLOSS 
BEGIN 

INTEGER  M  *  MB » ME  *  XB  *  DS  *  i j  I ST$ 

DSrlOOOS  XB=0S 

IF  OMAXd  +  1)  GTR  1  THEN  BEGIN 

FOR  Mr(PMAX(I*0)+l»l*PMAX(I»XR) )  DO 

IF  X (M)  GTR  XB  THEN  BEGIN  XB=X(M)$  MB=M$  ENDS 
FOR  Mr (PMAX ( 1+1 » 1 ) +1  *  1  *  PMAX ( 1  +  1 » OMAX ( 1+1 ) ) )  DO  BEGIN 
DISTrSQRT ( (X(MB)-X(M) )**2+(Y (MB)-Y(M) )**2)$ 

IF  OIST  LSS  US  THEN  BEGIN  DS=DIST$  ME=M$  ENDS  ENDS 
IF  X (ME ) -X (MB )  LSS  NYD/5  THEN  CLOS=TRUE  ELSE 
CLOS=FALSES  END  ELSE  CLOS=FALSE$ 

ENDS 

PROCEDURE  CVSE ( X » Y » LMAX » MMAX  *  CHA  *  I  *  CHEK  t NYD ) $ 
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INTEGER  array  X» Y»LMAX»MMAX»CHtK4 
INTEGER  I #  NYD$ 

STRING  CHAS 
BEGIN 

INTEGER  M  t Ml » M2  #  ML ,  Mr , MR  *  YD »  YT  t XS » XB »  CYE » EYES 
XS=2000s  XU=OS  YD=05,  CYE=OS  EYE=0$ 

FOR  M=(MMAX(I»0)+1»1»MMAX(I#2) )  00 

IF  X(M)  GTR  XB  THEN  BEGIN  XB=X(M)S  MR=M$  ENDS 
FOR  M=(MMAX(I»1)+1»1»MM/.X(I#LMAX(I)  )  )  DO 

IF  X(M)  LSS  XS  THEN  BEGIN  XS=X(M)S  ML=M$  ENDS 
FOR  Mz (MM AX (I»0)+1»1» MMAX (1*2))  DO 

IF  X «M)  GTR  X ( ML )  THEN  BEGIN  MB=M$  M=MMAX ( I » 2) +1$  ENDS 
FOR  M=(MB+l»i»MR-l>  DO  BEGIN 

YT=Y(MB)+(Y(MR)-Y(MB) )*(X(M)-X(MB))/(X(MR)-X(MB) )S 
IF  Y (M) -YT  LSS  G  THEN  EYE=EYE+1  ELSE  CYE=CYE+1$  ENDS 
FOR  M1=(MR»1#ML)  DO  FOR  M2= ( MR-1 , -1  *  MB)  DO 

IF  X ( Ml )  GEO  X(M2)  AND  X(M1)  LEQ  X(M2+1)  THEN  BEGIN 
IF  Y (Ml )-Y (M2)  GTR  YD  THEN  YD=Y ( Ml ) -Y (M2) $ 

M2=MB-1S  ENDS 

IF  YD  GTR  NYD/8  AND  EYE  GTR  CYE  THEN  CHA(I)=»E»  ELSE 
CHA(I)='C*$  CHEK(I)=1$ 

ENDS 

PROCEDURE  FIYMlN (T» I  * JMAX#  TMIN»  YB) $ 

INTEGER  ARRAY  T#JMAX»TMINS 

INTEGER  1 » YbS 

BEGIN 

INTEGER  TSMA  » SLYs 
TSMAriOOOS 

FOR  J=(JMAX(I-1)+2»1»JMAX(I) )  DO  BEGIN 
SLY=T< J)-T(J-1)S 

IF  SLY  GEQ  0  AND  T(J)  LEQ  YB  THEN  GO  TO  LL7S 
IF  T ( J)  LSS  TSMA  THEN  TSMA=T(J)$ 

LL7I  ENDS 
TMIN(I)=TSMA$ 

ENDS 

PROCEDURE  GVSG ( X # Y » LMAX » MMAX » CHA » I , CHEK t NYD ) $ 

INTEGER  ARRAY  X » Y , LMAX»MMAX » CHEKS 
INTEGER  I»NYDS 
STRING  CHAS 
BEGIN 

INTEGER  M»MlfXGf Xu.YSS 
XGrOS  XQ=OS  YS=20f)0S 

FOR  M=(MMAX(I+1»1) r 1 , MHAX ( 1+1 »LMAX ( 1+1 ) ) )  DO 
IF  Y (M)  LSS  YS  THEN  YS=Y(M>$ 

FOR  M- (MMAX ( 1+2 » 0 ) +1 r 1  *  MMAX ( I+2» 1 ) )  DO  BEGIN 
FOR  Ml=(MMAX(I+l»LMAX(I+l) ) »-l » MMAX ( 1  +  1 » 

LMAX ( 1+1 ) -1 ) +5)  DO 

IF  Y (M)  GEQ  Y(M1+1)  AND  Y(M)  LEQ  Y(M1)  THEN  BEGIN 
IF  X(M)  GTR  X (Ml )  THEN  XG=XQ+1  ELSE  XG=XG+1$ 
M1=MMAX(I+1#LMAX(I+1)-1)$  ENDS 


IF  Y(M)  GTR  YS+NYo/2  THEN  M=MMAX ( I+2» 1) +1$ 

ENDS 

IF  XG  GTr  XQ  THEN  CHA(I)=*G*  ELSE  CHA(I)=»Q*S 
CHEK(I)=U  CHEK(I+1)=U  CHA(I+1)  =  »-»S 
ENOS 

PROCEDURE  HKVSL(X»Y#LMAX#MMAX»I»HKYE»NYD)S 
INTEGER  ARRAY  X» Y  »LMAX»MMAX$ 

INTEGER  I »NYD$ 

BOOLEAN  hkyes 
BEGIN 

INTEGER  M,M1»M2»YS,Xk»XLS 
YSr2000S  XK=0$  XL=0s 
FOR  M=(MMAX(I+1»0)+1»1,MMAX( I+lf 1) )  00 
IF  Y  (M)  LSS  YS  THEN  YS=Y(M)$ 

FOR  M2=(MMAX(I  +  l,0)+i»l»MMAX(I-H,l)  )  DO  BEGIN 

FOR  Ml  = (MMAX ( I »LMAX ( I ) ) » “1 »MMAX ( I » LMAX ( I ) ~1 ) +2 )  DO 

IF  Y(M2)  GEQ  Y(M1+1)  AND  Y(M2)  LEG  Y(M1)  THEN  BEGIN 
IF  X (M2 ) “X (Ml )  LSS  5  THEN  XK=XK+1  ELSE  XL=XL+1$ 
M1=MMAX(I»LiMAX(I)-1)$  ENDS 
IF  Y (M2)  GTR  YS+NYD/3  THEN  M2=MMAX ( 1+1 » 1 ) +1S  ENDS 
IF  XK  GTR  XL  THEN  HKYErTRUE  ELSE  HKYE=FALSE$ 

ENDS 

PROCEDURE  HVSK ( X » Y » LMAX , MMAX , CHA » I , CHEK ) $ 

integer  array  x»y»lmax»mmax»cheks 
integer  is 
string  cha$ 

BEGIN 

REAL  T$ 

INTEGER  M»M1 i M2 » M3  >MX » XL »  XU»  XB$ 

M1=MMAX(I»LMAX(I)-1)$  M2=MMAX(I»LMAX(I) )$ 

M3rMMAX ( 1  +  1 » LMAX ( I +  1 ) -1 } $  XB=OS 
FOR  Mr ( M2+1 *  1 » M3-1 )  DO  IF  X(M)  GTR  XB  THEN  BEGIN 
XB=X(M)S  MXrMS  ENDS 
FOR  Mr (Ml  +  1 » 1 » M2 )  DO 

IF  Y  ( MX )  LEG  Y  (M)  AND  Y(MX)  GEQ  Y(M-fl)  THEN  BEGIN 
XU=X(M)$  M=M2+1S  ENDS 
FOR  Mr(Ml+l»l»M2)  DO 

IF  Y ( M3 )  LEQ  Y(M)  AND  Y(M3)  GEQ  Y(M+1)  THEN  BEGIN 
XL=X(M)$  M=M2+1$  ENDS 
T=(Y(N3-3)-Y(M3)  )/(X(M3-3)-X(M3)  )$ 

IF  T  LSS  1.0  AND  (XB-XU)/(X(M3)-XL)  GTR  1.5 
THEN  CHA(I)=»K»  ELSE  CHA(I)=»H»$ 

CHA(I+l)=»-»$  CHEK ( I ) =1$  CHEK(I+1)=1$ 

ENDS 

PROCEDURE  OCOREC ( X » Y , LMAX » QMAX » MMAX » PMAX » SD » I » NYD » FEED » XR ) S 

integer  array  x»y»lmax»omax»mmax»pmax»sds 

INTEGER  I »NYD»XR$ 

BOOLEAN  FEEDS 
BEGIN 

INTEGER  Ml » M2 » MC » ME » MT » L » LE » XB » XG  r  OD » D I ST » YD » M » YB » TY$ 


c 
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IF 

IF 

IF 


OIST=1000»  FEED=FALSES  YB=OS 
FOR  Ml= (PMAX ( I #  0 ) +1 # l #PMAX ( 1 #  XR ) )  DO 

XG  ThE,,J  *iEGlN  XG=X(M1)$  MT=M1$  ENDS 
F°Rr?f^  eMAX (I+1,1)+i>l»PMAX(I+l»°MAX(I+l)))  DO  BEGIN 
V1SI=S^T  (  (X(M2)“X(  NT)  )**2+(Y(M2)-Y(MT)  )»*2)$ 

IF  OlbT  LSS  Oi)  THEN  BEGIN  0D=DIST$  MC=M2$  ENDS 
tNui 

ME=KMAX <  I  +1  # LMaX ( I  +  l ) ) % 

XP=X(MC)+NYQ/5a, 

FOR  M2=(MC#l»MMAX(I+i,LHAX(I+l) ) )  DO 

IF  X(M2)  LEQ  XB  AfJI)  X(M2+1)  GEO  XB  THEN  BEGIN 
v,  v^m?25  M2=MMAX(m.LMAX(I+l))+lS  ENDS 
YO=Y (ME) -Y (MMAX ( I  +  l »  0 ) +1 ) S 
YU  LEQ  0  THEN  Y0=2S 

^5ci:,^M2.A?(I+i'0,+1,,/YD  LSS  2,0  then 

FcEDzTKUE  else  feed=false$ 

FEED  AND  OD  LSS  Nyu/4  THEN  BEGIN 
FOR  L=( 1 # 1 »LMAX ( 1+1 ) }  DO 

IF  ME  GEQ  MMAX ( I  +  I  # L-l )  AND  ME  LEO  MMAX(I  +  1»L) 
THEN  BEGIN  LE=L-1S 
LE=L-1S 

Ml=10**(LMAx ( I+1)-LE)$ 

SO ( 1+1 ) =SD ( I  +  l ) - ( SD ( I+l ) //Ml ) *M1$ 

L=LMAX( I+lJ+lL  ENDS 
FOR  L=(LE»l»LMAX(l+l) )  DO 

MMAX ( I  + 1 , L-LE ) =MMAX ( I  +  1  * L ) S 
LMAX ( I+l )=LMAX( I+l) -LES 
FOR  L= ( 1 # 1 » OMAX ( I  +  l ) )  DO 

IF  ME  GEO  PMAX(I+1 ,L-1)  AND  ME  LEQ  PMAX(I+1,L) 

TP  OMAIVfN,B,£GIN  l-E=L“1$  L=OMAX(I+l)+ls  ends 
IF  PMAX ( I+l »L£+1 )-ME  LSS  5  THEN  LE=LE+1$ 

FOR  L=(LE»1»0MAX(I+1) )  DO 

PMAX <1+1, L-LE )=PMAX( I+l »L)$ 

OMAX ( I+l ) rOMAX ( I+l ) -l£ 

ends 

00  hSS  NYD/4  AND  OMAX (I+l)  LEQ  1  THEN  BEGIN 
M.1.=ME+1$  M2=MMAX  (I  +  l  »LMAX  ( I+l )  )-l$ 

FOR  M=(M1»1-,M2)  Do  begin 

iri!!:!,^Y^o)"Y{Ml,,*(X(M)-X(M1,,/(X<M2)-X(Ml))S 
_  IF  Y(M)-TY  GTR  YB  THEN  YD=Y(M)-TY$  ends 

...  YP/NYD  GTR  0.3  THEN  CHA  ( I  +  l )  =  *R  t$ 

CHA(I+l)=t-»$  CHEK(I+1)=1$  ENDS 
ENDS 

PR°Sr  0SCULA  < x  *  Y  i  LMAX  t  MMAX ,  1 1 NYD  t  OSCL )  $ 

INTEGER  ARRAY  X # Y , LMAX »MMAXS 
INTEGER  I»NYDS 
800LEAN  OSCLs 
BEGIN 

INTEGER  M#M1 » XB » XS» Yss 
XB=0S  XS=0$  YS=2000s 


\  * 
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END'S 


00  HEGIN 

IF  ELSE  XB=xa+11 

IF  **  "* X8 E- 


INTEGER  PARRArxVrLrMyMMfl:<,I’Prt'S’NY0’r8»* 
integer*  JS£n&’lmax'"'«‘ 
boolean  PYFSs 
BEGIN 

NTET=Os,V1  ’  X0=0  *  ’  xne =01  r,1iopi  o*CJ  L ' XD ' XSMA '  XNE '  NOP$ 

MTIM1  ENOS 

1-m'  LE0  r(H)  AiJn  Y (ML)  GEO  r(H+u 
FOR  M=?^x,SH ff’***1*  £NOS  V<M+1’ 

if  ”  e  '  :  •  '"Xl,n-1"  00 

,  ‘L'V  GhG  Y(M)  AND  Y(ML)  LEG  Y (m+1  J 
for  m="»T?i  ?=jrA?fUl'1,+1S  ENU$ 

--S^SFKSW . 

iiSiilripKS"-' . . 

X(MU-X(iMa)  LSS  Nrn/A  twkmDoXD  GTR  nY0/1°  AND 

PYESsFALSES  THtN  PYes=tRUE  else 


ML=M$  ENDS 
THEN  BEGIN 

then  begin 


IF 


ENOS 

PR0INTEg|rRarr  A(Y  XX  l YLLMXMM#  *  > 1  ’ ' RTES ,  NYO)  S 

INTEGER  J"P?Y$X,lf'LNAX.MMAXS 

boolean  pyfs$ 

BEGIN 

INTEGER  MfMLfMTfYBfXds 
Yb=Os 

F°R  M=(MMAX(I,0.n;,,^Ax(i,2))  DO 
FOrm-Imt  ?t5  yq  THen  pfgin  YB=Y(M)$ 

M=MiVJAX{I,0)STENoID/4  THEN  REGIN  ML=M$ 


MT=M$  ends 
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Y(M+1)  then  BEGIN 


F°R  M= (KT , 1 , MM AX ( I , LMAX ( I ) ) )  DO 

IF  !n-y  »l'E0/Y{M)  AND  y<ML)  6EQ 
XD-X  (M ) -X { ML) S 

IF  vn  ?;SMAi<I,LMAX(I,,+i*  ENDS 
ENDS  NYD/5  THEN  RY£S=TRUE  ELSE  RYES=FALSE$ 

PR0Tw?^r'E  SOHEK  (X #  Y » MMAX 1 1 » SYES»  SD) $ 

IJSISiS  x-v.hmax.sc/5’20’1 

boolean  syfss 

BEGIN 

INTEGER  M»N$ 

R£al  slops 

IF  IF^rmS^,6  $5  SD(I)  EQL  ^62  THEN  M=2  ELSE 
N=3$  EQL  326  0R  SD(I)  EQL  326 ?  THEN  M=3$ 

LSC;  N=N+ls 

’ -Y  fjjjjj  ?  *  m  /HEN  30  T0  LSCs 

ic  S?  Ml: AX  ( I  »M)  -N)-X(MMAX  ( I»M) )  )  * 

ENPS  ™™A«kStwI  IIZe'msUILseI,  and  slop  lss  1-° 

boolean  VYESs 
begin 

integer  M»MB»MT#YB#MES 
YlJ=Os 

F0RiFIY?m X G re1 y B ' ™ ’ 1 ’ MMAX ( 1+1 'LMAX ( 1+1 ) ) )  00 

MT=MS  £NDt 

1  Y(MT,-N'f0/2  THEN  BEGIN 

IF  ?<\€x:?h"Mg™(,'-;“m°«(1+1,,+1s  end$ 

ENnj  — —  ™en 

FS?w'I.*i?,'fJcsse  ********“******‘***“*»»»*..«»«„ * 

BEGIN  CHAofsfz^CHEKU)-?*  ENOS  °R  SDlI>  E0L  2626  THEN 

foh  s' 

BORMlNt  Y»  I  r  JMAXr  YNIN)  S 
FORFlI|fNi<Y,I'JMAX,FVMI'20«»»*  ENDS 

™ D0  begin 

‘  ’  ESL  326  °R  SD(I>  «<-  36  OR  SD ( I >  EQL  26  THEN  BEGIN 
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*326  OR  Sf>  ( i  +  i )  EQL  35  0R  SD(I  +  1) 


EQL  26 


IF 


IF 

XR 

IF 


BEGIN 
CHEK ( I )=1$ 


CHEK(I+l)=i$ 


EOL  2  THEN 


if  iU(l+i)  EQL 

then  begin 

_._Yb=°2  xl=o$  xr=os 

FOR  M=(„mx,  i+j  ,0)+1 , !  ,U1(  n  , 

( ill  .WAX  cfil  nlu4  YB=r(M)I  KJ=M*  END* 

??  X(f')MLSSlo{sr'THENlXL-jLH$'X<MJ,,/(Y(M2,"r,KJ,)I 

SS'-MiS?  «*> 

iBHKjSSifiMBsanaaiUBass 

IF  rwaiT » >7Xa<I)  LSS  10  THEN 

CHA(I)s*2»$  cHm(I+1)=*-»s 
ends 

kysos  YMAX(I+1>-ymax(i)s  ends  ends  ends  ends 

IF  IF  »,fS,3|SL05aSg'I>  Ml-  M  THEN  BEGIN 

BEGIN  0R  SD(I+1)  EQL  12  OR  SD( 1+1 ) 

F0RIF=in7 f ' Xi(  {  '  ° * +1  '  1  »MMAX  ( 1 » 1 ) )  DO 

IP  .  sr1’ LEo  x,m+i'  ■*«« 

KYr‘s'X6(I+1>  ST,i  5  AND  ™AX(I+1)-V<MX>  LSS  3  THEN 
E3L  1  THEN  BEGIN 

IF  iB|X‘lI’=^^HEK<UniJf^D*HA<I,  =  ’S’i  CH4<J+1»  =  — * 
ICICGE°  2  THEN  BEGIN 

NVuirMAxm-^MimiuIs'1’  E<3L  316  THEN  begin 

rKmoiT-,  I '£N  U£G,'J  CHA(I)z»s»$  ChA(I  +  1)-.-.i 
IF  WHuil)Sf5ii;}{S‘f  END  ELSE  BEGIN1  1 

CHA(I)=i-t*  GHaif'filf  LSS  g,B*NYO  THEM  BEGIN 

IF  (YMAx7i)“,K,S  C X« ) =J.Cg£S t&SEa=lS  CHEK(I)=1$ 

IF  .5™ J ,BES1N 

CHA{I-l>=»p*j CHCKfT71i-f.C2S<I"1,=1$  CHEK(I)=1$ 

eno Y«N<n=«iNiliMNOi  ENDI  EN0*  ENDI 

COMbmim=o$Asmax=2SSoi**************”******»*»******»***»*  * 

P0R  Js^»1»IMAX)  do  begin 

OR  lorn  Eqe  LVsou,^,  V*50'**  EaL  13 
OR  soil)  EOL  6  OR  Sc?i(1)EELOL12TH°ERNS°«I|0ELOE1f 


IF 


KY 

IF 
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gtr 

L5S 


QMIN 

SMAX 


THE.vj 

THEn 


MMIN=YMIN ( I ) $ 
SMAX=YMAX(I)S 


IF  YMlfyJ(l) 

IF  YMAX(I) 

LNl:  ENDi 

FOR  J=(l,l,3)  DO  BEGIN 

HD=(SMAX-BMlN)/2i> 

PfipTTA^7°J  yiX=0$  TMlN=bJ.  TlN=Oi 
FOR  I=(1,1,IMAX)  DO  BEGIN 

OR  Sn! i!  f?|L  ?o°LSc(I)  EGL  3  0R  SD(I)  EQ*-  1«3 
no  cnnf  !iWL  12  0R  So(I)  EQL  2  OR  SD(I)  EOL  23 

°R  to  5Qr  6  0R  50(1  *  E0L  1  then  go  to  ln2$ 

t3KX^)'SMAX  lss  hd  ThEn  BEGIN 
TMAX=TMAX+YMAX(I)$  TIX=TIX+1S»  ends 
if  BMIN-YMIN(I)  LSS  HD  THEN  BEGIN 

LN2:  Ei2sNs™rN+YMIN<IU  TIN=TIN+1*  ends 

yt-t^v/2t  0  °R  TIN  F'QL  0  THEN  G0  TO  OTs 

ENO$T"’™AX/TIX$  tb=tmin/tini  nyd=yt-yb$  smax=yt 

HD=NYD/2$ 

FOR  Isaji^MAX)  DO  IF  CHEk  ( I )  EQL  2  THEN  BEGIN 

cSek|,?2o»S  0R  SD,I)  EjL  13  0R  “TnioL  23  THEN 

FI YMIN ( Y» I » JMAX  »FYMl » YB ) S 

PDa)r-^YMAX<I, *  Lss  Hn  AND  ABS(YB-FYMI(I), 

ELSE  IF  YMaX(I)-YT 
PD ( I ) =2 

ELSE  IF  ABS(YT-YMAXd) ) 

PD ( I ) =3 

ELSE  IF  YMaX ( I )-YT  GTR 
PD(I)=4 


rs  BMIN=YBS 


IF 


LSS  HO  THEN 
GTR  hD  AND  ABSiYB-FYMI(I))  LSS  HD  THEN 
HD  AND  YB-FYMHI)  GTR  HD  THEN 


LSS 


HD  AND  Yb-FYMI (I )  GTR  HD  THEN 


ELSE  PD(I)=0$ 
IF  PD ( I )  EQL  0 
PD  ( I ) 

PD  ( I ) 

PD  ( I ) 

PD  ( I ) 


IF 

IF 

IF 

IF 


EQL 

EQL 

EQL 

EQL 


PCHa(1)=»0*  else 
PCHA(1)=*1*  else 
PCHa(1)=»2*  else 
PCHa ( 1 ) =*3*  else 
PCHa(1)s»4*S 


then 
THEN 

then 
then 

«  ■  THEN 

PCHA  (2 )  = »  a *S> 

LNTYPE(0)$ 

Kl=900$  K2=500-I*30$ 

LINE(DFILE#Ki»K2»  DUMMY ) $ 

CHAR (OF lLE» PCHA t DUMMY) J 
END} 

&  isi&ry™  8ESIN 

FOR:m-i5MAX??.ORiSS1I+1)  E0L  6  THEN  BEG1N 

00  begin 

FOR  P2-( JMAX ( I ) +1 r 1 » JMAX( 1+1 } )  DO 

IF  *‘”l>  LE«  X<M2)  AND  X(M1)  GEQ  X(M2+U 
BEGIN 


then 
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If*'  Y(M1)-Y(,v|2)  leg  NYR/10  THEN  K1=K1+1  else 
Tr-  ,K2=K2+li  M2=JMAX(I+1)+1S  ENDS 
IFEND$MAX<I)  >“X(,V,1)  GTH  NYd/4  THEN  M1=JMAX(I-1)$ 

ENnsFENDiGTR  K2  ™£N  BEGIN  CHA( I )=*-»$  CHEK(I)=1S  ENDS 

FOriza.^lMAX^o**”***”***************”*************  S 

F0RIK-U(f)TM?Y,6n0R  S0<1)  EQL  7  ™EN  BEGIN 

IFKX  LiV.n  J  F0R  L-<*>1AX<K-1)+1,1,JMAX(K))  do 

IF  Ycm\  5hQ,X,t!Av{1,“1!  A|J,)  X(L)  LEq  X(JMAX(I-l)+2) 
rnoA^  ;.{L)  GTR  Y(DMAX(1)-1)  THEN  REGIN 

I  j  iw  fim  °°  F°R  M=(^AX(I)-1,-1,jmaX<I~1)+2)  DO 

IE  X  (Ml)  (jlQ  X(M)  ANo  X  ( Ml  +  l )  LEO  X(M)  OR 

X  Tr  X(Ml+1)  GEQ  X<M)  THEN  BEGIN 

IF  Y (Ml )  LSS  Y(M)  THEN  BEGIN 

°HA(  I  )  =  *-»$  CHEK  (K )  =l!6  CHEK(I)=1$ 
l-  ./av,!  'f A  (K,+il  ENDS  M=JMAX(I-1)S  ends 
KY-0S°  lAX  K  +19>  K=IMAX+1$  ENDS 

1  lun  y/l  ,  ,1ec  iU'1'?l  AND  X(L>  LE<3  X(JMAXm) 

*2?  !,«•  LSS  V(JMAX(I-l)+2)  THEN  BEGIN 

IF  X  jn',  -2Xi^”j)0  F0R  M=(J«FX(I-1)+2,1.JHAX(I)  )  DO 
IF  X  <  Ml )  LcQ  X(M)  AND  X(Ml+l)  GEQ  X(M)  OR 

*  Tr  X(M1+1)  LEQ  X(M)  THEN  BEGIN 

IF  Y (Ml )  GTR  Y(M)  THEN  KY=1$ 

IF  KY  EQL  1  AND  YC11)  LSS  Y  (M)  THEN  BEGIN 

CHEI<<K)=1$  CHEK(I)=1$ 

1  - tMAY/i7iVAX<K  1}  11  END$  M=JMAX(I>+1S  ends 
L_JMAX(K)+1$  k=imax+is  ends 

ENDS 

FSS^TI^llSxrK**”*****-’**- - * - 

IF  SD ( I )  EuL  7  Then  BEGIN 
DIST=10U0S 

FOR  ty- m  V,(  1  !=!X(JMAX  ( 1-1  }  +1  >  +X  ( JMAX  ( I ) ) )  /2S 
FOR  IX- ( 1 , 1 , ImAX)  DO  BEGIN 

IF  IX  EGL  I  THEN  IX=IX+15 

1  ^suAVdj-XBdx))  Leo  dist  then  begin 

IF  PDtlc?Brl|XAy(ii7XB(iXni  IC=IX$  ENDS  ENDS 
IF  FO(IC)  EGL  1  THEN  CHa(IC)=»I»  ELSE 

IF  PO(IC)  EQL  3  THEN  CHA(IC)=»J»s 
roMue£SE5<-IS,=14  CHEK<I>=1S  CHA(I)=»-*$  ENOS 

C0BACKl2$tEDBACK  L°0P  ***********************************  $ 

FOR  IR=( 1 t 1 »8ACK)  DO  BEGIN 

FORMI=Il^niMAX-nEDO************** . * 

IF  CHEK(I)  EGL  2  THEN  BEGIN 


f 
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IF  SD  ( 1 )  EOL  6  AND  PD  ( I )  F.oL  1 
OR  SD ( I )  EQL  1 6  AND  PD { I )  t QL  1 
OR  SD ( 1 )  EQL  62  AND  PDfl)  EQL  1 

0R  SCLoL^Ly'ni^No  P0UI  E0L  1  THEN  BEGIN 

C  tc  '  HMAX '  PMA x  * 1  *  I » NYD *  CLOS )  'J, 

CL0S  THEN  begin 

IFCprrn  '  tII?X  *  °KAX  ' hMAX  ' PMAX  » SD , I ,  NYD ,  FEED ,  1 )  $ 

bACK=UACK,l“Em"HA  ‘ 1  ‘ =  ’  °  ’  *  CHEK ' 1 ' Z11 

IF  ini?Sy»FS?  AND  CHEK(I+1)  E°L  2  THEN  BEGIN 
OR  Sn  l?,L  36  AND  P*'<H-1>  EOL  2 

no  J  1  EQL  32  AND  pD ( 1+1 )  EQL  2 

cSiJn  .n°L  ^  AN0  +  EQL  2  THEN  REGIN 
ELSE  IF  <  D  ( I  +  f )  C??,<  1 1 H  =,~’$  cHEK<1>=1*  CHEK  <  1  +  1  >  =1$  END 

CHMlJ-ioTi' CHAllJn  C'ND  P?uI  +  1)  EQL  3  THEN  BEGIN 
ELSE  IF  SO(I  +  nCfr  J  =  "’S  CHEK(I)=1$  CHEK(I-H)=lS  END 
IF  '  v  &AN°  P?(I  +  1J  EQL  ^  THEN  BEGIN 

2  THE,i  BFGIN  CHA(I)  =  *9»$  CHA(  1  +  1  )  =  *-*« 
CHEK(I)=1$  CHEK(I+1)=1S  END  ELSE 

ELSE  IF  Fny?!i(^Jo.LMJX'MMAX*CHAfI'CHEK,NYD)S  END 
Uuf-  iti  PDIIt11  E0L  1  ™EN  BE6IN 

ELSE  if  m  1=1  CHEKUlsjs  CHEK(I+1)=1*  ENO 

ORSnJf*??  r t.1*  EQL  3162  AND  PD(I  +  l)  EQL  1 

o*  s  i  at  sg  as  s;}:ii  a  i  ThEN  «.» 

: H?-1- 1CHEK1Itl)^ END 

ENOs°enos  ’ LMAX 'MM*X * > I 1 CHEK?NYD )  IHENDiEENDS  ENDS 

F“i(^^x:rrDo*,*****,*‘**’**’**********”‘*****»**  * 

if  cni (,I)  EQL  2  TH£N  begin 
bD(I)  EwL  3t>2  AND  PD(I)  ECL  1 

OR  fSJJI  £?!“  3162  AND  PD(I)  1 

OR  SD(I)  EOL  3262  AND  PD ( I )  FQL  1 

OR  SD  C I )  EQL  36  AND  PD ( I J  £GL  i 

OR  SD ( I )  EQL  262  AND  P0( I)  EOL  1 

CLoLf?Ly2n^v0oPD<1’  EGl-  1  THEN  BEGIN 
CLOSE  ( X  *  Y * 0,Y)AX » PMA X  *  I»  2 *  NYD  *  CLOS )  3, 

IF  CLOS  THEN  DEGIN 

OCOREC  ( X ,  Y »  LMAX * ON,  AX * MM  AX*  PMAX  *  SD  *  I ,  NYD  *  FEED  *  2 )  $ 

IF  FtED  THEN  BEGIN  CHA(I)s«0*S  CHEK(I)=1S 
BACKr0ACK+l$  ENDS  "  15 

IF  SDIl2I.F|n,°  CHEXn*l)  EQL  2  THEN  BEGIN 
rm  cS  1  +  1  EQL  3t>  ANU  PU<I  +  1)  EoL  2 

OR  SJRJJ  fQL  32  AND  P*>« I+D  EQL  2 

°R  EQL  362  AND  Pr){1+1>  EQL  2  THEN  BEGIN 

ELSE  Jf  SDllI?|C?o,<Itii='‘’1  CHEK(I»=1*  CHEK, I+l,sl$  ENO 
ELSE  IF  SDCI-H)  EQL  362  AND  PDCI+1)  EQL  3  THEN  BEGIN 


OR  SD ( I ) 
OR  SD  < I ) 
OR  SD ( I ) 
OR  SD ( I ) 
OR  SD ( I ) 


( 
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END 


END 


END 


IF 

OR 


ELSEHIF1si)(I+i)CFQ1IIt1,~n”1  CHEK(I)=1*  CHEK ( I+l)=l$ 

THEN  aEGIf' 

«  isi*:  ;  aia  E0L 1 

CHAdU-oi's  CHA(I+l)-?<J,'1ru£0L  1  THEt'1  BE0IN 

-I,  ™ ^;i£yhekii+i,=i* 

end*  VEN0S  'ENGiAX ' MMA* 'C""'  '  *OHEK  SntD )  l^NO^ENDi 

COMMENT  FIRST  dTuf^c 

FOR  I=(1,i/imJx?  DO  *  "f*  +  *  +  ****************************J,  $ 

-  sDfnEf-,I>  5rQL  2  TH£N  BriGIN 

sniJ  rEu,L  3162  AND  pD(I)  EQL  2 

5 H H  »“¥«?!? S-i  S^. 

*VSL  x  .  1  "E6IN 

CHeK(nf^9^K,m,<ilrENMCH/',I+1,::'-’1 

IF  NOT  UK  YE  THEN 

BC0SD^YXi I " °WAXl " MMAXl " P«AX. . CHA ,  I , CHEK , FEED , 
ORSSOd+ll'(™  ’  -??L  326?  AND  PC  CUD  EQL  1 

HK^Kx;tY’^Ax'---'HK^:^cff 1  then  besin 

IF  NOT  HKYENTHENKlX'Y'LMAX’MMAX'CHA'I'CHEK,$ 

BC0SLGODHLENi'0MAX’MMAX'PMAX’CHA.I.CHEK,FEED. 

£b%sIxLy'?a1x,^ax'''^e^**’  E8l  1  then  begin 

CHEK(D-uUr^N  CHA(I,  =  ’H’S  CHAU+D  =  *->S 

IF  SofKHKjE\1HENEMI+1,=11  EWI 

GCOSO C.ltm };LEN U  ’ 0MAX ' MMAX ' PMAX ' CNA ,  D  CHEK ,  FEED , 

ELSSO!;N?Dd'X'Y'LMAX,piUX'PMAX'PMAX'CHA.UCHEK,FEED, 

END$EED  THeN  flACK=BAcK+lS  ENDS 

END  OF  FEEDBACK  LOOP  .  ***********^ 

FOR  I=(1»1,IMAX)  DO  BEGIN  *  ************************  $ 
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THEM  BEGIN 


tp  EQL  41  AN°  CHek(I+1)  EQL  2  THEN  BEGIN 

IF  SD ( I )  EQL  20  AMO  PO(I)  ECfL  1 

0R  TP(il/TQlr>2^  AND  PD(I)  F-0L  1  THEN  BEGIN 
IF  SO(I+l)  EoL  32  AND  Pi,(I  +  i)  EQL  1 

,£,GL  362  ANU  PD(I+1>  EGL  1  THEN  BEGIN 
VCHEK(X»Y »LMAX»MMAX#  I  n/Yr\S,NYD)$ 

if  vyes  then  begin  Cha(I)  =  »v»$  cha(I+i)=*-.»$ 

,.SHK(I,=ls  CHEK(i+i)=i$  end 

Ehi£-_IF  cHEK(I+2)  EQl.  2  THEN  BEGIN 
vCHEK ( X  »  Y  »LMAX » MMAX  »I+l,VYESfNYD)$ 

IF  VYES  THEN  BEGIN  CHA(I)=*W»$  CHA ( 1+1 ) =»-»$ 

CHE»<  <  H-l  >=13,  CHEK(I+2)=lS  CHA (1+2 )=*-*$ 

Ends,  ENOS  END 

eLSru--^/TD(f  +  1)  EQL  36  AND  pD(I  +  l)  EQL  1  AND 
CHtK ( I +2 )  EQL  2  THEN  BEGIN 

VCHEK (X  * Y #LMAX  #MMAX » I+l , VYESrNYD) S 

IF  VYES  THEN  BEGIN  ChA(I)=»W»$  CHA ( 1+1 ) =• $ 

CHE£/,,U=i1oCHEK(1  +  1)=1$  CHEK(I+2)=1S  CHA(I+2)=»-»s 
ends  enos  ends  ends 

..  iF  S”EK(I)  £QI-  2  THEN  Begin 
IF  SD(I)  EQL  62  AND  PD{I)  EQL  1 

°R  SD(I)  EQL  162  AND  PD ( I )  EQL  1  THEM  BEGIN 
CHA(I)=»c»S  CHEK(I)=1S  END 

S;Scnfr>Sr  (1)  EQL  36  AND  PD(I)  EQL 
OR  SD  ( I )  EQL  316  AND  PUU)  EGL  4 

f£!J!  EdL  3162  AND  P0{1)  EQL  4 

362  AWD  P0(I)  EGL  *  then  BEGIN 
CHA ( I)z*F»$  CHEK(I)=ls  ENDS 
ENDS  ENDS 

pon^z.nfjAxroo*******"******"***************”*****  * 

TP  cn^!Xi.  EQL  2  AND  CHEK(I-l)  EQL  2  THEN  BEGIN 

IF  tp  i IP1,31-2  AND  PD(I)  EGL  1  THEN  BEGIN 
IF  SD(I-i)  LQL  316  AND  PD(I-l)  EQL  2 

OR  SD(I-l)  EQL  3162  AND  Pii(I-l)  EQL  2 
OR  ^D(I-l)  EQL  36  AND  P|)(I-l)  EQL  2 
°R  362  AND  EQL  2  THEN  BEGIN 

IF  SD?}i7?  CHEK<I-1>=1*  CHEK(I)=1*  ENDS 

io  cr?  ;  EQL  326  AND  PD(I-l)  EQL  1 
OR  SO(I-l)  EQL  3262  AND  Ptl  ( I — 1 )  EQL  1 

OR  SD < I— 1 )  EQL  362  AND  PD(I-l)  EQL  1 

IP”"1?  EQL  36  AND  pD(I-l)  EQL  1 
OR  SD(I-l)  EQL  262  AND  PD(I-l)  EQL  1 

0R  cSi?T>1.5?b  ?aL  I  THEN  RESIN 

En2J  ENDS  CMA(I-1,:;-'*  CHEK (,,=!»  CHEKU-1>=1S  ENOS 

FORMI=a,?^NAx}eDO***************************************  1 

e0L  2  4Nt)  CHEKII+1)  EOL  2  THEN  BEGIN 
OSCULA ( X » Y  #  LMAX » MMAX 1 1 » NYD #  OSCL) $ 


OR  SO(I-l) 
OR  SD(I-l) 
OR  SD(I-l) 
OR  SD(I-l) 
OR  S0{I-1) 
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sna+2) 

SD(I+2) 

srui+2) 


rc  c  *p  0sCL  THEN  BEGIN 

OR  qS  32  AN°  PD(I>  1 

OR  SO  I  rfJr  lib  AWD  PD(I)  ECL  1 
OP  c!  E(iL  36  AND  P0(I)  Et-’L  1 

IF  SDCI^.2K  ,ATPU<1'  £GL  1  TH£N  «E6IN 
OB  Qn/f+}!  EuL  362  AND  ^D(I+1)  EQL  i 

!SmI }i,g?i  ““.J®  ">«♦»  egl\  then  begin 

ofloVl.tVi?1'  “  AN0,PDU*I,(I^,1CHEK,I+I,=il  END 

OR  -QL  32  AND  p‘3  C 1+ 1 )  EQL  1 

OSCUl Jti  vLQL  326  AND  PC(I+1>  EQL  1  THEN  BEGIN 
f  P  ^  ? #  I '  !:MAX  • *M AX . I ♦! . n YD . OSCL  >  S 
IF  ™EN  3t?IfJ  CHA(I)=»n»S 

IF  0S?U  THEN  BeIinH£K<1UI$  CHEK  ‘  I+1>=1*  ENDS 

OB  EQL  36  Ai^D  PD(I+2)  EGL  1 

or  In  \V\\  EQL  32  A,JD  PD(I+2>  EQL  1 
OB  f~,J+2  EQL  362  AN0  P0(I+2)  EQL  1 
OB  ln'!f  +  o  EQL  32b2  A‘JD  pD‘I+2)  EQL  1 

CHAm  =  .«?«  326  AND  PD  (I EQL  1  THEN  BEGIN 

ENDS  END,  ENMEENDiSi*  CHE*'I+I»=ll  CHEK T lllV=ls~CMOS  ENDS 

,r£Hi!E?:»! iK'.iTsa*  sr - - 

TP  /YuA?Li3b2  °R  SD(1)  EQL  ^262  THEN  BEGIN 

s 0,5  THEN  BEG1N 

IF  SDU)  EQL  26  OR  In.,?  ???  CHEK12'  EI5L  2  THEN  BEGIN 

IF  !^(  £  p  2  «™  . 

CHMoLpli'cil  It,-Pa,'JMIW(1”  LSS  °-5  THEN  BEGIN 
ends  ENDS  ENDS2  $  CHA(2,-'-'S  CHEX(l)=ls  CHEK(2>=1$  ENDS 

FOR  I=(1#1»IMAX)  DO  BEGIN 

TP  in/?VEK(I)  EQL  2  THE‘N  BEGIN 

CVSE  x  m1yVa°  PiJ(I)  EQL  1  ™EN  BEGIN 

ELSE^F  p?'MMAX,CHA,I,CHEK,NYD)$  END 

ELSIFICHf?!5!,?&L  32'AND  P&d>  EQL  1  THEN  BEGIN 

else1 begIn'®8  2  THeN  BEGIN  CHA(I,=’R’*  CHEK(I)=ls  eno 
f?(I+1)  £GL  32  AND  Pu(I+1)  Eql  l 

veSfl^.SixJSgAx^.^:^  1 then  besin 
^jri?ss^(^;iir^sCHA<l+i,=-'* 

IF  NOT  VYLS  THEN  BEGIN 
RCHEK ( X, Y  t LMAX  9 MMAX » I , R rES  * NYD ) S 

beg!nTHEN  BESIn  CHA<I,=,R'*  CHEK(I)S1$  end  else 
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IF  CULM  I +2)  Nb^.  2  THEN  BEGIN  CHA(I)  =  *U*$ 

CHEK ( I ) =li  cHEK ( 1+1 )  =  1S  CHA(I+l)=»-*$  ENDS 
IF  CHEK  ( 1  +  2 )  ii'oiL  2  THEN  DEGIN 
VCMEK  (X#  Y»Lw,Ax»;.iMAX»  1  +  1 »  VYES » NYD) $ 

IF  VYES  THEN  OtGlN  CHA(I)=»W»S  CHA ( 1+1 ) =* -* 1 
CHEK  ( I )  =1‘&  CHL_K(I  +  1)=1S  CHEK  ( 1+2 )  =1$ 

CHA  ( I+2)  =  »-»<j,  D,JD$ 

IF  NOT  VYES  THEM  BEGIN  CHA ( I ) =» U» $ • CHA ( 1+1 ) =* -* » 

CHtK(I)=ls  CHEK(I+1)=1$  ENDS  ENDS 

LNus  ENDS  END 

SB(,I  +  1)  duL  AfJ')  f>0(I+II  EQL  1  THEN  BEGIN 
RCHEKU*  Y • LMAX » MMAX#  I*.<YF.S»NYD)$ 

IF  KYES  THEN  BEGIN  CnA(I)=»H»S  CHEK(I)=1S  END  ELSE  BEGIN 
IF  CHc.Ml+2)  NED  THEN  BEGIN  CHA(I)=»U»S 

C;-lcK(I)=l^  CHrK(I  +  l)=ll  CHA(I+1)=*-*S  ENDS 
IF  CHEK (1+2)  EOL  2  THEN  BEGIN 
VCHFK(  X  #  Y  #  UMAX ,  MMA  < ,  I  +  1 1  VYES  t  NYD )  S 

IF  VYES  THEN  BEGIN  CHA(I)=*W»$  CHA ( 1  +  1 )  =  •- *  $ 
CHA(I+2)  =  *-».f>  CHEK(I)  =  1$  CHEK(I+1)=1S 
CriEK  ( 1+2)  =ls  ENDS 

IF  NOT  VYES  THEN  BEGIN  CHA(I)=*U*$  CHA ( 1  +  1 )  =  *  -  * y 
CHEK(I)=iS  CHEK ( I+l)=lS  ENDS 

ends  ends  end  else 

CHA  (  T  )  =  *  R  •  $  CHEK(l)  =  lf,  ENDS  ENDS  END 
tL  j  ^  SD(I)  EGL  026  AND  HIM  I)  EGL  1  THEN  BEGIN 

IF  CH£K(I  +  i)  NEG  2  THEN  BEGIN  SCHEK  ( X  #  Y *  MMAX .  I » SYES#  SD)  I 

if  srps  then  begin  cha(I)=*s»$  chek(I)=is  ends 

if  NOT  SYLS  THEN  Bl.G  +  1  .  CHA  (I  )=*R*$  CHEK(I)=1$  ENDS  END 
ELSE  BEGIN 

+  C'GL  i?-  ANlJ  EoL  1  THEN  BEGIN 

VCHEK(X.  Y  t  LMAX  t  MMAX » i  t  vYLS»NYL>)  $ 

IF  NOT  VYES  THEN  BEGIN  SCHEK ( X , Y , MMAX f I  * SYES t SD) $ 

IF  SYES  THEN  BEGl.n  CHrt(I)=»S»S  CHEK(I)=1$  ENDS 
IF  I  JOT  SYLS  THEN  BEGIN  CHA(I)=*R'$ 

CHEK(I)=1S  ENDj,  ENDS 

IF  VYES  THEN  BEGIN  CmA(I)=*V»$  CHA(I  +  l)  =  t..t<j, 

CHt  K ( 1 ) -Is  CHEK ( i  +  1 ) =1S  ENDS  END  ELSE 

X™P(I+3)  EGL  AN0  pD(t  +  l)  EGL  3  THEN  BEGIN 
SCHLK ( X  *  Y  » MMAX  » I , SYES » SD )  $ 

IF  SYES  THi_N  BEGIN  CriA(I)  =  »S»$  CHEK(I)=1$  ENDS 
IF  NOT  SYES  THEN  BEGli- 

PCHEK  (  X »  Y  ,  lMAX  » MM  A  a  t  I+-1 1 PYES  ,  NYD  t  Yf) )  $ 

IF  NOT  PYES  THEN  mD.GIN  CHA ( I ) = » Y » S  CHA ( 1+1 ) =* -* % 
CHEK(I)=1$  C.-iEk  (  J  +  l )zis  ENDS 

CKin  -  It  PYtS  THEN  3dGAu  GHA(I)  =  »R»S  CHEK(I)  =  1$  ENDS  EN.jS 
END  LLSh  BEGIN  SCHEK ( X » Y . MMAX » I . SYES# SD) $ 

IF  SYES  THt.N  BEGIu  ChA(I)  =  »S»S  CHEK(I)=1S  ENDS 

rKiniFc.-PPT  SYLS  TH£N  BEGlN  CHA(I)  =  *R*$  CHEK(I)=1$  ENOS  ENDS 
ulNU$  fc.NU 

ELSE  IF  S0(I )  EGL  3262  AND  PD(I)  EQL  1  THEN  BEGIN 


{ 

i 
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I  IF  CHEK  (I+l  )  NEQ  2  THE, .  LEG  IN 

SCHEK ( X , Y , MM AX • i » SYES » SD )  $ 

*F  SYES  THEN  BEGIN  CHA(I)=»S*S  CHEK(I)=1$  ENDS 
IF  NOT  SYES  THEN  BEGIN  CHA(I)=*R*$  CHEK(I)=1$  ENDS  END 
ELSE  BEGIN 

IF  SO  (1  +  1)  EGL  32  AND  Pu(  I  +  l)  EQL  1 
OR  SD ( 1+1 )  EQL  362  AND  Pi)(I+l)  EQL  1  THEN  BEGIN 
SCHEK ( X , Y , MM AX  » I » SYES » SO )  $ 

IF  SYES  THEN  BEGIN  ChA(I)=»S»$  CHEK(I)=1$  END  ELSE 
BEGIN  VCHEK ( X # Y»LMAX » MMAX » I r V YES » NYD ) S 
IF  VYES  THEN  ULGlN  CHA(I>=*V»$  CHA ( I+l ) =* -*$ 
CHEK(I)=1S  CHEK ( I+l )=1$  ENDS 
IF  NOT  VYES  THEN  BEGIN  CHA(I)=*R*$  CHEK(I)  =  .l$  ENDS 

ends  end  * 

ELSE  IF  SD ( 1+1 )  EQL  36  aNd  PD(I+1)  EQL  3  THEN  BEGIN 
SCHEK(X»Y»MMAX»I»SYES»SD)S 

IF  SYES  THtN  BEGIN  ChA(I)=*S*$  CHEK(I)  =  1$  ENl)  ELSE  BEGIN 
PCHEK ( X  t Y  » LMAX » MMAX ,  I  +  1 » PYES » NYD » Yb ) $ 

IF  PYES  THEN  BEGIN  CHA(I)='R*$  CHEK(I)=1$  ENDS 
IF  NOT  PYES  THEN  BEGIN  CKA(i)=*Y*$  CHA ( 1+1 ) = * -* $ 
CHEK(I)=1S  CHEk(I+1)=1S  ENDS  ENDS  END 
ELSE  BEGIN  SCHEK ( X » Y » Mm AX » I » SYES » SD ) $ 

IF  SYES  THEN  BEGIN  ChA(I)=*S*S  CIIEK(I)=1$  ENDS 
IF  NOT  SYES  THEN  BEGIN  CHA(I)=»R*S  CHEK(I)=1$  ENDS  ENDS 
ENDS  END 

(  ELSE  IF  SU(I)  EQL  36  AND  Pu (  l )  EQL  1  THEN  BEGIN 

~  IF  CHEK(I+1)  NEQ  2  THEN  BEGIN 

CHA(I)=»S»i  CHEK(I)=1S  END  ELSE  BEGIN 
IF  SD  ( 1+1 )  EQL  32  AND  Pu(I+l)  EQL  1 
OR  SD ( 1+1 )  EQL  362  ANu  PD(I+1)  EQL  1  THEN  BEGIN 
SCHEK ( X » Y , MMAX » 1 1 SYES  1 50 ) S 

IF  SYES  THEN  BEGIN  ChA(I)=*S*$  CHEK(I)=1$  END  ELSE  BEGIN 
VCHEK (X» Y  » LMAX  t MMAX , I , V YES » NYD ) S 

IF  VYES  THEN  BEGIN  CHA(I)=»V*S  CHA ( 1+1 ) =»-*$ 

CHEK ( I ) =1$  CHEK(I+1)=1s  END  ELSE  BEGIN 
IF  CHEK ( 1+2 )  NEQ  ?  THEN  BEGIN  CHA(I)=*U*$ 

CHEK(I)=14  CHl-K  ( I+l )=1$  CHA(  1+1)  =  *-*$  ENDS 
IF  CH£K(I+?>  EQL  2  THE;.,  BEGIN 

VCHEK ( X » Y  rLMAXrMMAX  #I  +  l»VYES»NYD)$ 

IF  VYES  THEN  BEGIN  CHA(I)  =  *W*$  CHA ( I  +  l )  =  *- *  $ 

CHEK ( I ) =1S  CHEK ( I+l ) =1$  CHEK(I+2)=1$ 

CHA ( 1+2)  =  ' “* 5  ENDS 

IF  NOT  VYES  THEN  BEGIN  CHA(I)=»U»$  CHA ( I+l ) =*-»$ 
CHEK ( I ) =1$  CHEK ( I+l )=1$  ENDS  ENDS  ENDS 

ENOS  END 

ELSE  IF  SO ( I+l )  EGL  36  AND  PD (I+l)  EQL  1  THEN  BEGIN 
SCHEK ( X » Y » MMAX # I , SYES > SD ) $ 

IF  SYES  THEN  BEGIN  ChA(I)=*S*$  CHEK(I)=1$  END  ELSE  BEGIN 
IF  CHEK ( 1+2 )  NEQ  2  THEN  BEGIN  CHA(I)=»U*$ 

CHEK(I)=1$  CHEk(I+1)=1$  CHA(I+l)=»-»$  ENDS 


108 


IF  CHEK (1+2)  EQL  2  I  HEN  BEGIN 
VCHEK(X#Y#LMAX#MMAX.  I+1»VYES»NYD)S 

IF  VYES  THEN  BEGIN  CHA(I)=»W*S  CHA ( I  +  l ) =»“» 5 
CHEK  ( I )  =1!  CHEK ( I+l )=1S  CHEK(I+2)=1S 
CHA( I+2)=»-»$  E.jOS 

IF  NOT  VYES  THlu  BEGIN  CHA(I)=»U»$  CHA ( I  +  l ) =*-»$ 
CHEK(I)=1S  CHfK ( I+1)=1S  ENDS  ENDS  ENDS  END 
ELSE  IF  CD ( 1  +  1 )  EQL  36  AND  PD (I+l)  EQL  3  THEN  BEGIN 
SCHEK ( X  #  Y  #  MMAX » I #  SYES  #  SD ) $ 

IF  SYES  THEN  BEGIN  ChA(I)=*S*$  CHEK(I)=1$  ENDS 
IF  NOT  SYES  THEN  BEGIN  CHA(I)=»Y»S  CHA ( I+l )=♦“'$ 
CHEK(I)=1S  CHEK ( I  +  l )  =  1$  ENDS  END  ELSE 
BEGIN  CHA(I)=»S'$  CHEK(I)=1S  ENDS  ENDS  END 
ELSE  IF  SD  ( I )  EQL  36  AND  Pi)  (I)  EQL  3  THEN  BEGIN 
IF  SD  ( I  +  l )  EQL  326  AND  PD (I+l)  EQL  1 
OR  SD  ( I  +  l )  EGl  3262  AND  PD (I+l)  EGL  1 
OR  SD ( 1  +  1 )  EQL  36  AND  Pu(I+i)  EQL  1 
OR  SD ( 1+1 )  EQL  362  AND  PD (1+1)  EQL  1  THEN  BEGIN 

CHA(I)=»P»$  CHA(I+l)=»-»*  CHEK ( I ) =1$  CHEK(I+1)=1$  ENDS 

END 

ELSE  IF  SD C I )  EQL  362  AND  PD(I)  EQL  1  THEN  BEGIN 
IF  CHEK ( I  +  l )  NEG  2  THEN  BEGIN 
SCHEK(X»Y#MMAXiI#SYES»SO)S 

IF  SYES  THEN  BEGIN  C,{A(I)  =  »S»S  ChEK(I)=l$  ENDS 
IF  NOT  SYES  THEN  BEGIN  CCHEK  ( X ,  Y  »LMAX  »MMAX » I  »CYES»  NYD)  $ 
IF  CYES  THEN  CVSE(X » Y  » LMAX » MMAX » CHA » I » CHEK » NYD ) $ 

IF  NOT  CYES  THEN  BEGIN  CHA(I)=»R'S  CHEK(I)=1$  ENDS 
EMUS  ENOS 

IF  CHEK  ( I  +  i )  EQL  2  THEN  BEGIN 

IF  SD ( 1+1 )  EQL  32  AND  PO(I+l)  EQL  1 
OR  SD( I  +  l )  EQL  362  AND  PD l I+l)  EQL  1  THEN  BEGIN 
SCHEK ( X  #  Y * MMAX # I # SYES * SD ) S 

IF  SYES  THEN  BEGIN  CmA(I)=*S»S  CHEK(I)=1$  END  ELSE  BEGIN 
VCHEK (X»  Y » LMAX » MMAX  # I r VYES » NYD ) S 

IF  VYES  THEN  BEGIN  CHA(I>='V»S  CHA ( I+l ) =»-♦ $ 
CHEK(I)=1S  CHEK(I+1)=1S  END  ELSE  BEGIN 
CCHEK (X»Y#LMAX»Mf.|AX,  I  »CYES»NYD)S 
IF  CYES  THEN  CVSE ( X  * Y » LMAX »MMAX * CHA » I »CHEK » NYD) 

ELSE  BEGIN  RCHEK ( X » Y » LMAX » MMAX # I » RYES» NYD) S 

IF  RYES  THEN  BEGIN  CHA(I)='R'S  CHEK(I)=1$  END 
ELSE  BEGIN 

IF  CHFK(I+2)  NEQ  2  THEN  BEGIN  CHA(I)=»U»$  CHA ( I+l > =♦-•$ 
CHEK(I)=li  CHEK ( I+l ) =1S  ENDS 
IF  CHEK (1+2)  EQL  2  THEN  hEGlN 
VCHEK ( X » Y » LMAX » MMAX , I  +  1 » VYES » NYD ) $ 

IF  VYES  THEN  BEGIN  CHA(I)=*W«S  CHA( I+l)=»-»$ 

CHEK ( I ) =1S  CHEK(I+1)=1$  CHEK(I+2)=1$ 

CHA(I+2)='-»S  ENDS 

IF  NOT  VYES  THEN  BEGIN  CHA(I)='U*S  CHA( I+l)=»-»$ 
CH£K(I)=1$  CHEK ( I+l )=1$  ENDS  ENDS  ENDS  ENDS 


{ 
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ENOS  ENDS  fc.N0 

Etf,Er-IF  SD(1+1)  EQL  36  mN.J  PDiI+1)  EQL  1  THEN  BEGIN 
SCHEK ( X » Y , MM AX 1 1 , SYES >  SO )  $ 

IF  SYES  THEM  BEGIN  ChA(I)=*S»$  CHEK(I)=1$  END  ELSE  BEGIN 
CCHEK ( X  t Y » LMAX » MM AX , I , C YES  *  NYD ) $ 

IF  CYES  THEN  CVSE ( X » Y * LMAX »MMAX .CHA *  I  * CHEK» NYD) 

BEGIN  RCl  i£K  (  X »  Y ,  LMAX  #  MM  AX » 1 1  RYES  t  NYD )  $ 

IF  RYES  THEN  BEGIN  CHA(I)=*R*$  CHEK(I)=1$  END 
ELSE  BEGIN 

CHEK  { 1+2 )  NEG  2  THEN  BEGIN  CHA(I)=»U»$  CHA(  H-l)  =  »-»$ 


ELSE 


IF 


CHEK ( I ) =1$  CH£K(I+1)=1$  ENDS 


IF  CHEK (1+2)  EQL  2  THEN  BEGIN 


VCHEK ( X  »  Y # LMAX » MM AX  *  1  +  1 » VYES » NYD) $ 

IF  VYES  THEN  BEGIN  CHA(I)=*W*$  CHA ( 1+1 ) =  » -»$ 
CH£K(I)=1S  CH£k(I+1)=1$  CHEK ( 1+2 ) =1$ 


CHA ( 1+2 )  =  *  -  *  S  ENDS 

IF  NOT  VYES  THEN  BEGIN  CHA(I)=*U»$  CHA ( 1+1)=*-*$ 
CHEK ( I ) =1$  CHEk ( 1+1 ) =1$  ENDS  ENDS  ENDS 
LNOS  ENDS  END 


ELSE  IF  SD ( 1+1 )  EQL  36  AND  PD(I+1)  EQL  3  THEN  BEGIN 
SCHEK  ( X,  Y,MMAX»  I#  SYES » SDK 

if  syes  then  begin  Cha(I)=*s*$  chek(I)=i$  end  else  begin 

CCHEK (Xf Y  #LMAX»MMAX» I »CYES»NYD)$ 

IF  CYES  THEN  CVSEtX# Y * LMAX rMMAXr CHA » I » CHEK » NYD) 

BEGIN 

IF  ;;,i£K(I+2)  NEQ  2  THEN  BEGIN  CHA(I)  =  *Y»$  CHA(I+l)=*-»$ 

CHEK ( I ) =1$  CHEK(I+l)=ls  ENDS 
IF  CHEK (1+2)  EQL  2  THEN  BEGIN 

PCHEK (X» Y#LMAX#MMAX» 1+1 »PYES»NYD» Y8)S 
IF  PYES  THEN  BEGIN  ChA(I)=»R*$  CHEK(I)=1$  ENDS 
IF  NOT  PYES  THEN  BEGIN  CHA(I)=»Y*$  CHA ( 1+1 ) = »-» $ 

CHEK(I)=1$  CHEK ( I+1)=1S  ENDS  ENDS 
ENDS  ENDS  END 

ELSE  BEGIN  SCHEK (X t Y»MMAX » I , SYES»SD) $ 

if  syes  then  begin  Cha(I)=*s*s  chek(I)=i$  ends 
if  NOT  SYES  THEN  BEGIN  CCHEK (X»Y»LMAX»MMAX» I »CYES»NYQ)$ 
IF  CYES  THEN  CVSE ( X * Y , LMAX »MMAX »CHA r 1 1 CHEKr NYD) $ 

IF  NOT  CYES  THEN  BEGIN  CHA(I)=»R»$  CHEK(I)=1$  ENDS 
ENDS  ENDS  ENDS  ENDS 
ENDS  ENDS 
ENDS 

FOR  I=( IMAX+1»1»30)  DO  CHA(I)=*  »$ 

CHA (30)=* a *$ 

LNTYPE ( 0 ) $ 


K1=X ( 10) $  K2=YMAX ( 1 ) +100$ 
LINE(DFILE»K1»K2»0UMMY)$ 

CHAR ( DF I LE » CHA  * OUMMY ) $ 

GO  TO  OTi 


ENOS 

enit:  ENDS 
13  XQT  PATTEN 


